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800 4 PIECE BOARD SET 

Includes Main Board, Power Supply 
Assembly, CPU Module and 10K 
Revision B Operating System Module. 
All boards are new, tested and complete 
with all components. $ ^ Q 50 



HOT DISK TITLES 

• Video Title Shop + 2 Graphics Disks 
Bonus Package - All 3 for . . $14.50 

• ChessMaster 2000 $12.50 

• Alternate Reality the City $12.50 

• Alternate Reality Dungeon $12.50 

• Tomahawk $12.50 



FLAT SERVICE RATES 

1050 DISK DRIVE $75.00 

810 DISK DRIVE $69.50 

850 INTERFACE $39.50 

800 COMPUTER $49.50 

1200XL COMPUTER $49.50 

Flat rates include Parts & Labor, 60 day 
warranty. Include $7.00 shipping & insurance 



800/400 MODULES 

NEW PARTS COMPLETE WITH IC'S 
5Q • CX853 16K Ram Module 



$ 



EACH 



• 800 Main Board 
•800/400 CPU with GTIA 

• 800 10K"B"O.S. Module 

• 400 Main Board 

• 400 Power Supply Board 



800 Power Supply Board $14.50 
INTEGRATED CIRCUITS 

• CPU CO14806 

• POKEY C012294 

• PIA C014795 

A _ „ • GTIA CO14805 

$ A 50 • ANTIC C012296 

LL -CPU CO10745 

-PIA CO10750 

CApu 'CPU C014377 

rzMon . delay CO60472 

•2600TIA.. CO10444 

• PIA C012298 

•CPU 6507 

• PIA 6532 

•RAM 6810 

• CPU 6502B 



C061598 $20.00 
C061991 $15.00 
1050 Rom $19.50 
C061618 $20.00 



C021697 $15.00 
C025953 $9.50 
5713 .... $5.25 
C024947 $15.00 



1050 MECHANISM 

Factory fresh TANDON mechs. 
make difficult repairs a snap. Units 
are complete with Head, Stepper, 
Spindle motor, belt etc. Just plug in, 
no difficult alignments or adjust- 
ments required —j 



VISICALC 

SPREADSHEET 

Unleash the corrputing power $ «j g95 | 



of your 8 bit Atari withVisicalc. 
Compute everything from home 
finances to high powered finan- 
cial projections. Hundreds of uses. 



DISK 



XL 40 PIN LSI CHIPSET 

A Complete set of 40 Pin Large 
Scale Integrated Circuits for your 
800XL, 600XL or 1200XL computer. 
Great for quick repairs I Set 
contains one each of the ^ . ^ nc i 
following: CPU, GTIA, 
ANTIC, PIA AND POKEY. *V 



REPAIR MANUALS 

SAMS Service Manuals for the 
following units contain schematics, 
parts listings, labelled photographs 
showing the location of 
checkpoints and more! A special 
section gives oscilloscope and 
logic probe readings allowing you 
to narrow the malfunction down to 
a specific chip or transistor! 
806, 800XL, 130XE, 400, 1025 

and 1050 $19.50 each 

520ST Service Manual. $37.50 

MISCELLANEOUS 

1027 INK ROLLER $6.50 

13 Pin Serial I/O Cable $5.95 

ACE Joystick $7.95 

Joystick Extension Cable 6' $5.00 

1050 Track 0 Sensor $8.50 

2793 1050 Controller IC . . . $19.50 

U.S. Doubter $29.95 

SPARTADOS Tool-Kit . . . $32.95 
Paddle Controllers (Pair) . . . $6.50 

400 3 Piece Board Set $19.50 

Fastchip for 800/400 $15.50 

Rambo XL w/o RAM IC's $39.95 
850 or PR Modem Cable . . $14.50 
850 or PR Printer Cable . . . $14.50 

Printer Interface $39.95 

I/O 13 Pin PC connector . . . $4.50 
I/O 13 Pin Cable end plug . . $4.50 
ST 6' Disk Drive Cable . . . $14.00 
ST Monitor Cable connector $550 
ST Drive Cable plug end.... $650 
5 V4" Drive Cable .... $23.95 



TOWER PACKS 

Exact replacement trans- ^ . M r- r\\ 

former for 800/400, 1050 $ T A D 0 I 
810, 1200XL, 850, XF551 & | H" 
1020 units. Part #0017945. 

XL/XE SUPPLY 

Power Pak for 800XL,600XL $OC00l 
130XE, 6SXE & XE Game. 



THE BOOKEEPER 
AND CX85 KEYPAD 

You get both Atari's 8 bit 
professional bookeeping $"iQ95| 
system and the handy CX85 1 
numeric keypad for one low 4 DISK 
price. Packages factory sealed. SET 



KEYBOARDS 

New and complete subassembly. 
Easy internal replacement. 

130XE/65XE $35.00 

800 $40.00 

800XI $29.50 

400 $12.50 



COMPUTER BOOKS 

Atari Playground Workbook $7.95 
HackerBook Tricks & Tips $5.00 

Inside Atari Basic $5.00 

Atari Basic Ref. manual. $5.00 
How to Atari 6502 Program $5 .00 
Write Your Own Games. $5.00 
Programmers Ref. Guide $14.95 
Assembly Language Guide $21.95 
XE Users Handbook .... $21.95 
XL Users Handbook .... $2 1.95 
Advanced Programming $21.95 
Atari Basic Faster & Better $22.95 
Your Atari Computer $17.95 

SERIAL I/O CABLE 

High Quality, 13Pin $5.95 

MAC-65 CARTRIDGE 

6502 Machine language Macro- 
Assembler. First class tool for 
serious programmers. . . $59.95 

ATARI 850 INTERFACE 

Bare PC Board with parts list and 

crystal $7.50 

Board & all plug in IC's . . . $39.50 

PR: CONNECTION 

Serial/Parallel Interface for connecting 
moderns and printers $65.00 

BASIC CARTRIDGE 

Exact replacement for 
800/400/ 1200XL $15.00 

EPROM CARTRIDGES 

16K Eprom Board with case. Specify 
dual 2764 or single 27128 style. Gold 
contacts $6.95 

ANIMATION STATION 

Graphics Design Tablet $74.95 



Cartridges for al 8 bit Atari computers J 

POLE POSITION Cartridge $15.00 

PAC-MAN Cartridge $4.00 

DELUXE INVADERS Cartridge.... $4.00 
JOURNEY TO THE PLANETS Cart. $4.00 

DONKEY KONG Cartridge $5.00 

CHOPLIFTER Cartridge $10.00 

MILLEPEDE Cartridge $10.00 

EASTERN FRONT Cartridge .... $15.00 

PENGO Cartridge $15.00 

CAVERNS OF MARS Cartridge . . $15.00 

ATARI WRITER Cartridge $29.95 

TURMOIL Cartridge $5.00 

CROSSFIRE Cartridge $7.50 

SPRINGER Cartridge $7.50 

FRACTION FEVER Cartridge $9.50 

ALPHABET ZOO Cartridge $9.50 

LINKING LOGIC (Fisher- Price) Cart $9.50 

FACEMAKER Cartridge $9.50 

DELTA DRAWING Cartridge $9.50 

ADVENTURE CREATOR Cartridge $12.50 

ZONE RANGER Cartridge $12.50 

SILICON WARRIOR Cartridge .... $12.50 
MATH ENCOUNTER Cartridge . . . $12.50 
LEARNING WITH LEEPER Cart. . $12.50 

UP FOR GRABS Cartridge $12.50 

PILOT LANGUAGE Package $17.50 

SPARTADOS- X Cartridge .... $59.95 

ACTION O.S.S Cartridge $59.95 

MAC-65 O.S.S. Cartridge .... $59.95 
BASIC XE O.S.S. Cartridge . . . $59.95 

R-TIME 8 Cartridge $56.95 

BASIC XL O.S.S. Cartridge . . . $49.95 

DISK TITLES 
PAPERCLIP (Word Processor). . $29.95 

VISICALC Spreadsheet $19.95 

BOOKEEPER * CX85 KEYPAD . . $19.95 

MISSION ASTEROID Disk $5.00 

DAVID'S MIDNIGHT MAGIC Disk $5.00 

FORT APOCALYPSE Disk $5.00 

SPIDER MAN Disk $5.00 

HUMAN TORCH & THE THING . . . $5.00 

MUSICAL PILOT Ed. Disk $5.00 

CON'PUTATION Disk $5.00 

DEBUG Childware Disk $5.00 

CRYSTAL RAIDER Disk $5.00 

DISPATCH RIDER Disk $5.00 

MASTER CHESS Disk $5.00 

SPEED KING Disk $5.00 

LAST V-8 Disk $5.00 

CHAMBERS OF ZORP Disk $5.00 

PATHFINDER Disk $5.00 

MATCH RACER Disk $5.00 

ENCOUNTER ON OUESTAR IV . . $5.00 

ALIEN AMBUSH Disk $5.00 

NINJA Disk $7.50 

ELECTRA-GLIDE Disk $7.50 

WOMBATS 1 Adventure Disk ... . $7.50 
SPORTS SPECTACULAR Disk . . . $7.50 

THE GAMBLER Disk $7.50 

STRATOSDisk $7.50 

FUN IN NUMBERS Disk $7.50 

MIND MAZES (Educational) $7.50 

HONEY CRAZE MATH (D) $7.50 

MONEY TOOLS (Financial Utility). . $9.95 

DIG DUG Disk $9.95 

REPTON Disk $9.95 

REARGUARD Disk $9.95 

TECHNA-COLOR DREAM Disk . . . $9.95 

FREAKY FACTORY Disk $9.95 

LASER HAWK Disk $9.95 

ROCKET REPAIRMAN Disk $9.95 

CEST'E LA VE Disk $9.95 

WOMPER STOMPER Disk $9.95 

OLIN EMERALD (Jr.. Adv.) $9.95 

CHESSMASTER 2000 (64K) .... $12.50 

DROPZONE Disk $12.50 

CASTLE WOLFENSTEIN Disk . . . $12.50 
BEYOND CASTLE WOLFENSTEIN $12.50 

ALIANTS Disk $12.50 

MOUSE QUEST Disk $12.50 

ELECTRONIC DRUMMER Disk . . $12.50 

STOCK MARKET Game $12.50 

PIRATES OF THE BARBARY COAST $12.50 

NICKERBOCKER Disk $12.50 

GAMESTAR FOOTBALL Disk . . . $14.95 
MIDWAY BATTLES War Game . . $14.95 
MOONMIST(lnfocom Adventure) $14.95 
MIND SHADOW Adventure 64K . . $14.95 

SEA STALKER Adventure $14.95 

STATION FALL Adventure $14.95 

HOLLYWOOD HIJINKS Adventure $14.95 
LURKING HORROR Adventure . . . $14.95 
MASTERTYPE (Typing Tutor) . . . $15.00 

BANK STREET WRITER $17.50 

CUT & PASTE W.P. Disk $17.50 

SPARTADOS CONST. SET $39.50 

DATASOFT DISKS 

VIDEO TITLE SHOP + 2 GRAPHICS DISKS 
BONUS PACKAGE - ALL 3 FOR . . $14.50 
ALTERNATE REALITY (The City) $12.50 
ALTERNATE REALITY The Dungeon $12.50 

ZORRODisk $9.95 

SARACEN Disk $9.95 

GUNSUNGER Disk (64K) $9.95 

TOMAHAWK Helicopter Game . . . $12.50 
THEATER EUROPE War Game . . $12.50 

BRUCE LEE Disk $12.50 

CROSSCHECK Disk $12.50 

MERCENARY Disk $12.50 

THE GOONIES Disk $12.50 

CONAN Disk $12.50 

NEVER ENDING STORY (64K) . . $12.50 
221 BAKER STREET (64K) .... $12.50j 



AMERICAN TECHNA-VISION 

Mail Order: 15338 Inverness St., San Leandro, Ca. 94579 
Repair Center: 2098 Pike Ave., San Leandro, Ca. 94577 

Terms: NO MINIMUM ORDER. We accept money orders, personal checks or 
C.O.D.s. VISA, Master/Card okay. Credit cards restricted to orders over $18.50. No 
personal checks on C.O.D. - Shipping: $4.00 shipping and handling on orders under 
$150.00. Add $2.75 for C.O.D. orders. In Canada total $6.00 for shipping and 
handling. Foreign shipping extra. Calif, residents include 7% sales tax. All items 
guaranteed 30 days from date of delivery. All sales final.. 

Prices subject to change wlhout notice. Send SASE for tree price list. Atari is a reg. trademark of Atari Corp. 



CALL TOLL FREE 
1-800-551-9995 

IN CALIF. OR OUTSIDE U.S. 
CALL 415-352-3787 
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XETEC DIP-FIX 



The March 1989 Antic I/O had a fix for 
running Newsroom page design software 
with a Xetec Graphix interface on a Pana- 
sonic 1080i printer. The number of the 
DIP switch to be reset was left out. The 
complete instructions are: Set the News- 
room printer driver to Epson MX-70 and 
set Xetec DIP switch 2 to the ON posi- 
tion.— ANTIC ED 



LIST MISSED 



As a long-time Atari enthusiast and Antic 
contributor, I was interested in your col- 
lection of existing products for the 8-bit 
in the January 1989 issue of Antic. How- 
ever, you didn't mention my educational 
chemistry game, Reaction Time, dis- 
tributed by Queue, Inc., 562 Boston Ave., 
Room S, Bridgeport, CT 96610; (800) 232- 
2224 or (203) 335-0906. Frankly, I think 
this is a good and unique product, al- 
though the advertised price of $69 may 
be too high. 

In addition, you don't show Dynacomp, 
Inc. in your list of sources for 8-bit prod- 
ucts. Their most recent catalog lists over 
70 programs for the Atari. Quite a few are 
old, but they are inexpensive and 
available. 

Karl Wiegers 
Rochester, NY 

The Dynacomp catalog includes educa- 
tional, business, finance, statitistics, engi- 
neering, science, graphics and utility 
software — not to mention games. The 
catalog is available for $2 from Dy- 
nacomp, Inc., 178 Phillips Road, Webstei; 
NY 14580. (800) 828-6772, (716) 265- 
4040. -ANTIC ED 



NO DUMPING 



IBM PCs and clones have the ability to 
dump what appears on the screen to a 
printer, when you press a [PRINT 
SCREEN] key. Is there some way of doing 



that with my 800XL? There are so many 
occasions when I would like to do that 
without destroying what's on the screen. 

Jerry Fraenkel 
Franklin Square, NY 

Sorry\ there's no built-in screen dump for 
the 800XL or for any 8-bit Atari. We ran 
an article and program called Kwik 
Dump in the March 1985 Antic. But that 
program only works with graphics file 
formats — and requires some program- 
ming knowledge. 



ANOTHER CONTENDER 

I feel compelled to write in response 
to your article "SpartaDOS X or Atari 
DOS-XE? Which is Number 1?" I would 
like to mention a third choice, namely 
My DOS 4.5. 

My DOS is density smart, supports RAM- 
disks of all shapes and sizes, supports 
double-sided disk drives (like the XF551) 
and supports hard disk drives and their 
subdirectories. Best of all, it's free from any 
of the major commercial information 
services (GEnie, CompuServe, etc.), users 
groups, and many BBS's. 

Also the source code is included, allow- 
ing advanced users to fiddle with the DOS 
if they like. Unlike SpartaDOS X and DOS- 
XE, My DOS is almost completely compat- 
ible with DOS 2.0 and 2.5, without the 
need for special drivers. And with a util- 
ity program, it will even do batch 
processing. 

Now tell me, why should I spend even 
$10 on a DOS when I can have the power 
of MyDOS for free? 

Glenn Garman 
East Rochester, NY 

MyDOS went public domain in Decem- 
ber, 1988. If you don't have access 
to MyDOS elsewhere, you can still get 
MyDOS with manual from Newell Indus- 
tries at 1213 Devonshire, Wylie, TX 
75098. (214) 442-6612. A nominal fee is 
required to cover shipping and han- 
d/mg. -ANTIC ED 
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TOP DOS? 



In his review of SpartaDOS X (March 
1989), Matt Ratcliff calls it the best DOS 
"bar none!" Although I think he writes 
some great stuff for the Atari, I disagree. 
I believe TopDOS 1.5 + is the ultimate disk 
operating system for 8-bit Atari computers. 
Read your own review in the July 1985 
issue, Everything You Wanted to Know 
About DOS 

I don't like MS-DOS, and that is why I 
chose the Atari. I don't need the complex 
SpartaDOS commands, and I've had it 
with those who proclaim such complex- 
ity to be better. 

Dave Bambaloff 
Tacoma, WA 

Indeed, our 1985 review referred to 
TOPDOS as "one of the most friendly, full- 
featured and useful DOS's for the Atari. " 
Unfortunately, as far as we know, 
TopDOS is no longer commercially 
available — nor do we know how it per- 
forms with the XF551 disk drive. Antic 
Arcade's Charles Cherry says that 
TopDOS was his favorite DOS — until Su- 
perDOS came along (which is why the Ar- 
cade Catalog now carries SUPERDOS.) 
-ANTIC ED 



SAUCERIAN TROUBLE 

In case some of your readers had trouble 
getting Listing 2 of Saucerian Shootout 
(January 1989) to RUN, there is a simple 
fix— delete line 1120 and then RUN the 
program as instructed. This will create a 
working copy of the game. 

John Reiser 

Omaha, NE 

This letter helped us track down a very 
obscure and infrequently occurring bug 
in the program that makes our BASIC 
loader listings. We've been using that pro- 
gram since 1985, and this is the first time 
we've had trouble with it. Thanks for let- 
ting us know about the problem and 
sending us the flxf— ANTIC ED 



LOVE AFFAIR 



What started out as a Christmas gift for 
my two children has turned into an ad- 
venture, a love affair of sorts between me 
and our Atari XE Game System. I have for- 
saken sleep, a few mills, and Wheel of For- 
tune to be with my new companion. My 
lovely wife went so far as to ask if I have 
named this newcomer to our family. 

We bought the XEGS as a substitute for 
the scarce Nintendo, but quickly tired of 
the cartridge games (new ones are scarce 
for this system). Just when we were ready 
to trade all this for a new go-cart engine, 
I discovered Antic at our local Walden 
Bookstore. From the December 1988 is- 
sue, I ordered a used Indus disk drive from 
Computer Repeats. It arrived with five util- 
ities and complete instructions. The disk 
drive gave me a new respect for the Atari 
XEGS, and the system is just beginning to 
grow. 

The January 1989 Antic held an even 
bigger surprise — one of your Antic Clas- 
sifieds advertisers was Joe Butner of Oak 
Hill, WV, about eight miles from me. I got 
in touch with him and he brought over 
a copy of his game, Fountain of the 
Gods. Not only did my family find a great 
game (best in our collection), but we 
found a friend with knowledge of our sys- 
tem that he willingly shares. 

Jeffery Sanders 
Beckley, WV 

We're glad to hear that XEGS buyers are 
discovering the excellent computer hid- 
ing inside. Now, if only Atari would do 
a bit more to spread the word. We could 
still end up with an 8-bit renaissance!— 
ANTIC ED 



SIDEWAYS PRINT PROBLEMS 

Running an expanding business using my 
Atari 800XL, I found my spreadsheets 
were getting too big for single-sheet pages, 
so I recalled a sideways spreadsheet pro- 
gram, Tapeless Spreadsheet Printer, from 
the August 1987 issue. I've typed-in arti- 



cles before and had no problem running 
them on my Atari XMM801 printer, but 
Tapeless was no go. HELP! 

Larry Whiting 
Surrey, BC, Canada 

Tapeless Spreadsheet Printer does not 
work with ALL Epson- compatible 
printers. Because the program down- 
loads a sideways character set to the 
printer, it will only work with a printer 
that has the built-in RAM to use an al- 
ternate character set. The program was 
not designed for the Atari XMM801, un- 
fortunately- ANTIC ED 



RAMBRANDT IN COLOR 

How can I get RAMbrandt to print or 
dump graphics onto my Star NX- 1000 
Rainbow printer? Is there a utility program 
I should be using? 

John McCarthy 
Brockton, MA 

RAMbrandt can only print in black and 
white, unless you have an Okimate 20 
color printer. To get your pictures to print 
in color, you can save them in Micro Il- 
lustrator format from RAMbrandt. Then 
you can use YEMACYB/4 software 
($29.95) from Electronical Software, PO. 
Box 8035, Rochester, Ml 48063. This color 
screen dump utility can print your Micro 
Illustrator formatted pictures in full 
color. —ANTIC ED 



Antic welcomes your feedback, but 
we regret that the large volume of mail 
makes it impossible for the Editors to 
reply to everyone. Although we do 
respond to as much reader correspon- 
dence as time permits, our highest pri- 
ority must be to publish I/O answers 
to questions that are meaningful to a 
substantial number of readers. 

Send letters to: Antic I/O Board, 
544 Second Street, San Francisco, 
CA 94107. 
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NEW PRODUCTS 



LABELMASTER, 

SMALL BUSINESS 

SYSTEM ^^■■MBHHH 

(applications software) 
Black Moon Systems 
P.O. Box 152 
Wind Gap, PA 18091 
32K disk 

Maintain your mailing lists and print 
out the labels you want with Label- 
Master Version 1.6. This powerful tool 
lets you design labels with up to six 
lines and a width of 34 characters, and 
create and edit your data onscreen. 
Multi-Column Lister Version 1.2 
makes it possible for you to print your 
LabelMaster data files in one to four- 
column formats, on labels or paper. 
This utility works with Epson (and 
most compatible) printers. The two are 
sold as a package, for only $10. 

Both LabelMaster and Multi-Column 
Lister are included in SBS, The Small 
Business System ($30), a group of pro- 
grams designed to help run a small 
business. The program modules in- 
clude Invoicing, Purchasing, Income 
and Expense Entry, End of Year Inven- 
tory, and Reports. Reports can be 
generated by month, any group of 
consecutive months, or by year. The 
Reports Module even includes a Sales 
and Tax Report and a Profit/Loss 
Report. 



PAGE MARSHAL w^mmamm 

(publishing software) 

Valar Software 

115 Vale Road 

Portslade Sussex 

BN41 1GE England 

26.64 Pounds Sterling (remittance in 

U.K. funds required.) 

XL/XE with minimum 64K, joystick, 

Epson compatible Dot Matrix printer 

with interface. 

Page Marshal is a suite of programs 
forming a user-friendly, text-with- 
graphics Page Processing System. Origi- 



nally developed as a structured pro- 
gramming chart drafting tool, the sys- 
tem can also produce electronics 
diagrams, business forms, statistical 
charts, graphs, tree structure charts and 
musical scores — not to mention stan- 
dard uses for desktop publishing, such 
as advertisements or newsletters. A dif- 
ferent character set or font can be used 
on every line, and a wide range of cus- 
tom font files is included. 

The screen display exactly mimics 
the printed copy. The program can 
work with an entire page in RAM, up 
to 80 columns wide and 80 lines deep. 
Any DOS 2.5 compatible word proces- 
sor can produce text files for this sys- 
tem, or text can be entered in Page 
Marshal's own Typer mode. 

PS USER UTILITY DISK mmh 

(utility software) 
No Frills Software 
800 East 23rd Street 
Kearney, NE 68847 
$31.95, 48K disk 

The PS USERS UTILITY DISK con 

tains a set of utility programs for use 
with Broderbund's Print Shop. The 
icon viewer lets you load four icons at 
a time and an icon cataloger sets you 
print specified icons. Font and border 
catalogers are also included. Other op- 
tions let you delete, rename or unde- 
lete your PS files, or even automati- 
cally transfer PS icons from one disk 
to another. Additional features let you 
mix PrintShop graphics with Atari 
fonts, to print custom labels and 
bookmarks. 



EDIT8, 

THE ENHANCEMENT wmm 

(utility software) 
Logic One 
P.O. Box 18123 
Cleveland, OH 44118-0123 

Instantly examine and modify your 



programs with EDIT8 ($9.95), the one 
and only RAMdisk sector editor. The 
editor works with Binary or BASIC 
programs, text or data, and includes 
dual-display and a restore feature. Ac- 
cording to Logic One, EDIT8 works 
with all upgrades, under DOS 2.5 or 
SpartaDOS 3.2. 

Also from Logic One, The En- 
hancement ($7.95) lets you use your 
RAMdisk like a real disk. Working with 
Atari DOS 2.5 or SpartaDOS, The En- 
hancement lets DOS know when to re- 
cover and when to set up the RAM- 
disk, making it both automatic and 
"coldstart safe" — every time. 



ATARIWRITER 

PLUS PATCH ^■■^■hi 

(utility software) 
LVAUG 

c/o AW+ Patch 
P.O. Box 1307 
Allentown, PA 18105 
$5, SpartaDOS 2.3 or 3.2 

Lehigh Valley Atari Users Group 
(LVAUG) is now offering Craig 
Gaumer's patch which allows you to 
use your copy of AtariWriter Plus with 
SpartaDOS 2.3 or 3-2. With this patch 
you can run AW+ from a RAMdisk or 
hard drive, Exit to SpartaDOS and re- 
turn to AW+ without losing your 
working copy, read directories of 
drives 1 through 8 directly from the 
AW+ menu, and more. Documentation 
is supplied on disk along with the 
patch. 



New Products notices are compiled by 
the Antic staff from information 
provided by the products' manufac- 
turers. Antic welcomes such submis- 
sions, but assumes no responsibility 
for the accuracy of these notices or the 
performance of the products listed. 
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uper 

ATOR 



Fast multi-file text finder 



By Jeffrey Summers, MD 



Ever try to find a specific bit of text 
when you forgot what file it was in? 
Save time and frustration by letting 
Super Locator do the searching for you. 
This BASIC program works on 8-bit 
Atari computers with 48K memory and 
a disk drive. 



If you use your Atari 8-bit for word 
processing, sooner or later you will 
forget which file contains some vital 
piece of information. Previously, the 
only way to find that lost information 
was to load files one-by-one into your 
word processor, search for the desired 
phrase and if it wasn't in that file, 
move on to the next. 

This very time-consuming process 
can make you wonder why you ever 
gave up your trusty typewriter to be- 
gin with. Now, Super Locator can 
make finding your text relatively pain- 
less. Super Locator will quickly search 



all the files on your disk for any speci- 
fied string. 

GETTING STARTED 

To see how it works, type in List- 
ing 1 and check it with TYPO II. Be 
sure to SAVE a copy to disk before you 
RUN it. 

If you have trouble typing the spe- 
cial characters in lines 10000-10030, 
don't type them in. Instead, type List- 
ing 2, check it with TYPO II and SAVE 
a copy. When you RUN Listing 2, it 
creates these hard-to-type lines and 
stores them in a file called LINES. LST. 



To merge the two programs, LOAD 
"DrLOCATOR.BAS" and then ENTER 
"D: LINES. LST" Remember to SAVE 
the completed program before you 
RUN it. 

To use Super Locator, RUN the pro- 
gram and insert a disk with several 
word processing text files on it. Su- 
per Locator asks which files it should 
search, giving you the chance to nar- 
row your search. Simply press [RE- 
TURN] to search all the files on the 
disk in Drive 1. 

Entering a directory specifier limits 
the search and enables you to search 
the files on a different disk drive. The 
directory specifier is the same as you 
would use with DOS. For example, if 
all of the files you wish to search are 
on the disk in your second disk drive 
and end with the extender TXT, you 
would enter "D2: * TXT". 

If you could further limit this to 
files that started with the letter A, you 
would enter "D2:A* TXT". To check 
all of the files on Drive 2, enter 
"D2:*.*". 

Next, you are asked for the string 
you want to find. This string may have 
up to 20 characters. The program also 
asks if the search should be case sen- 
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sitive, distinguishing between upper- 
case and lowercase letters. Although 
you can enter lowercase characters 
into the string, be careful to use only 
capital letters when answering other 
prompts. 

End the string with [RETURN] . The 
program clears the screen and lists the 
names of the files it is checking as it 
goes along. 

If the program finds your specified 
string, the string is displayed on the 
screen along with the text immedi- 
ately preceeding and following it. 
This lets you check the context of the 
phrase you are searching for, to make 
sure that this is the instance you 
wanted to find. 

For instance, if you were looking 
for a specific recipe for chocolate chip 
cookies, on a disk full of recipes, you 
could search for the string "choco- 
late". Your results might look like this: 

CHECKING DhDOS.SYS 

CHECKING D 1 : AUTOMATE TXT 



CHECKING DliLETTER.DOC 
CHECKING DhRECIPE.CPJ 
Found in file DhRECIPE.CPJ 
CHARLIE'S FAMOUS CHOCOLATE 
CAKE THE 

VING FROM PANS. CHOCOLATE 
FROSTING 

DIA & KEN'S MOCHA CHOCO- 
LATE CHEESECAKE 

ACKAGE SEMI-SWEET CHOCO- 
LATE CHIPS 

RECIPE.CPJ looks like a good place 
to look for that recipe. If you know 
the exact title of the recipe, you could 
specify "Toll House Cookies," instead. 
But if your search is too narrow, you 
risk missing your text because of 
slightly different wording, punctua- 
tion or spelling. 

Each time the program finds the 
string, it will ask whether you wish 
to Continue searching (the program 
will continue to check that same file 
for another occurrance), move to the 
Next file and continue the search, or 



stop (Exit). When the program has 
gone through all of the files specified 
on the disk, the program stops. 

PROGRAM LOCATING 

Super Locator does not distinguish 
between word processing files and 
programs. Thus, you can also use Lo- 
cator to search a disk for a program 
that may use a particular prompt. You 
can look for anything in a quoted 
string or a BASIC REM statement. You 
can even search for text within ma- 
chine language programs. The ' 'con- 
text" may be meaningless in these in- 
stances, but the program will find the 
data in any case. A 



Rochester, New York physician Jeffrey 
Summers has written numerous useful 
programs for Antic, including Antic 
Data-X (Revision B appeared in the De- 
cember 1988 issue) and Job Jar Atari 
(January 1989). 

Listing on page 34 



HACK BACK 

Special OFFER 

The Alpha Systems HACK PACK contains all our 
tinest products for making Back-up copies, 
Analyzing, Understanding and Protecting your 
Atari programs It comes complete with Atari 

Protection Techniques (Book and Disk I), Advanced Protection Techniques (Book and Disk II), The 
Chipmunk, The Scanalyzer, The Impersonator and Disk Pack 1000. Worth over $ 1 50. Get them all 
tor the special price of Just $99.95 



ATARI 8-BIT POWER 

ALPHA SYSTEMS is constantly innovating to provide more power 
for your 8-brt Ataris 



Atari Software Protection Techniques Vol I & II 

These Book and Disk packages detail the most advanced copy protection methods in use today They 
guide you through the methods used to create the protection as well as the copying techniques to get 
around them They include information on Phreaking • Hacking • On-line security • Black boxes • Self- 
destructing programs • Pirate bulletin board systems • Logic bombs • New piracy laws • Hardware 
data keys • Weak sectoring (Phantom, Fuzzy and unstable sectors) • Overfilled tracks • CRC errors • ^*fff 
Bank Select cartridges and MUCH, MUCH MORE The disks include automatic program protectors, tf^TXii POP-N-ROCKER 
Protection Scanners, directory hiding and more. »^\Iiiih 
BOOK I and DISK I $24.95 
BOOK II (Advanced protection) and DISK II $24.95 
Special Offer, Order both sets for Only $39.95 



PARROT II 

An All New Parrot sound digitizer for your Atari. Parrot II is a 
sophisticated new hardware device that plugs into your joystick 
port. Parrot II has two inputs, One for a microphone and one for a 
~"~ powered source such as a tape player, radio or Compact Disk. 
The Powerful Parrot II software lets you record sounds into your computer and play them back on any 
Atari. Parrot II turns your computers keyboard into a musical instrument with nine different sounds 
covering three octaves each The sounds can be anything, a dogs bark, a piano, a complete drum 
set, a symphony or your own voice. 

Parrot II lets you modify the sounds on a graphic display to create brand new sounds and special 
effects Best of all, the sounds and voices can be put into your own programs that can be used on 
any standard Atari. Explore the world of digital sound and music. ONLY $59.95 
Pre-Recorded Sound Disk More pre-recorded sounds for Parrot $4.95 
PARROT II Demo Disk (Does not require Parrot to run) $5.00 



CHIPMUNK 

Automatic Disk Back-Up System. Make perfectly running unprotected back-up copies of hundreds of 
the most popular Atari programs. Chipmunk's sophisticated programming Automatically finds and 
REMOVES copy protection from most Atari programs. Back-up even heavily protected programs with 
ease. Finally, a back-up system that needs no special hardware or skills. 

(If you need a full list of what Chipmunk copies, coll or write for our free catalog) $34.95 



Scanalyzer Automatically scan & analyze commercial programs. Unlock programming secrets and 
learn from the masters $29.95 

Impersonator Cartridge to Disk back up system. Create running back-up copies of any cartridge 
—pgffi (uptol6K) $29.95 

cheat 

Get more from your games with CHEAT Tired of spending days trying to beat a game? Tired of getting 
stuck just when you need another life? Cheat is an innovative new product that gives you the chance 
you need to beat your favorite games. Cheat works with hundreds of Atari games to give you 
unlimited lives or power End the frustration and get hours more enjoyment from your games (Call or 
write Alpha Systems for our free catalog with a full list of the programs that work with Cheat) ONUf $24.95 

BASIC TURBOCHARGER 

NOW for the first time o BASIC programmer can get the power, flexibility and incredible speed of 
machine language. BASIC TURBOCHARGER is a book and disk package that contains over 1 50 
ready to use machine language routines. Complete instructions show how to add them to your own 
BASIC programs to get these features and more: • Smooth Scrolling • Player/Missile control • Load & 
Save Picture files • Sorting and Searching • Special Effects Graphics • Incredible Speed • Much, Much 
More • Over 1 50 programs. You've heard of the power of Assembler, now harness it for your own 
needs. $24 95 

SSSf 216-374-7469 





a fast paced, multi-player trivia game that mixes questions 
with real songs (digitized 
with Parrot). Be the first to identify the songs and answer the music trivia questions. Pop-N-Rocker 
comes with three data disks and lets you add new questions so it will never get old. You can use a 
Parrot Sound digitizer to add new songs too! Use any kind of music from Rock to Classical to 
Nursery Rhymes. A new concept in entertainment and a perfect add-on for Parrot. $24.95 

COMPUTEREYES & MAGNIPRINT II + 

Turn your computer into a digital portrait studio. This complete package lets I 
you capture, save & print digital images from your Video Camera, VCR 
or TV. COMPUTEREYES hardware plugs directly into your joystick ports for 
easy use. Print your picture on a 6 foot poster $119.95 
ComputerEyes camera system ftVSf ^ 1 

Comes complete with everything above, plus a black and white video . - v ' a 1 ' 
camera and connecting cable. $329.95 IteM 
Graphics 9 Software - Add a new dimension to your COMPUTEREYES GIANT WALL SIZED POSTERS 
pictures - captures images in 1 6 shades of grey. $12.00 
Magniprint II + 

Easily the most powerful print program available today. Print graphics from almost any format in 
hundreds of shapes, sizes, and shades. Supports color printing and lets you create giant posters. 
Magniprint II + lets you stretch and squeeze, invert, add text, adjust shading and much more. 
Works with EPSON, NEC, Citoh, Panasonic, Gemini, Star, XMM801, and compatible printers. (850 
interface or equivalent required). $24.95 
Graphics Transformer 

Now you can combine the most powerful features of all your graphics programs. Create print shop 
icons from a Koala pad picture, from a photo digitized with ComputerEyes, or any picture file. 
Graphics Transformer lets you Shrink, Enlarge and Merge pictures for unequaled flexibility. $22.95 

YOUR ATARI COMES ALIVE 

SAVE MONEY Finally an alternative to buying expensive computer add-ons. Your Atari Comes Alive 
shows you how to built them yourself. This 'How-To' book and disk package gives you complete 
step by step instructions and programs needed to built and control these exciting devices and MORE: 
• Light Pen • Light & Motor Controllers 'Alarm Systems • voice Recognition • Environmental Sensors 
•Data Decoders • More than 1 50 pages Your Atari Comes Alive $24.95 



VISA & MASTERCARD, ORDER BY ALPHA SYSTEMS 1012 SKY LAND DRIVE MACEDONIA, OH 44056 FREE BONUS: DELUXE SPACE GAMES (3 games 

on a disk) Free with any order ol 3 or more items. Include $3.00 shp & hdlg (US Canada) Ohio res add 5'/2% sales rax 
Foreign orders add $8 00 shp & hldg. Call or write lor free catalog. Customer Service Line (216) 467-5665 M-F 9-3. 



PHONE, OR SEND MONEY ORDER TO: 
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Selector 



Total control over your settings 



By Jason Strautman 



Ever known the frustration of trying to get to DOS from a 
disk with an AUTORUN.SYS file on it? AUTORUN Selector lets 
you disable the AUTORUN file on booting, with just the press 
of a button. This short BASIC utility (translated from machine 
language) works on all 8-bit Atari computers with disk drive. 



If you're like me, you've got a 
lot of disks with AUTO- 
RUN.SYS files on them. And if 
you're like me, sometimes you 
need the familiar DOS menu for 
file copying and other housekeeping 
tasks. So I always had to keep a sepa- 
rate disk with no AUTORUN files, just 
DOS.SYS and DUP.SYS, for the times 
I needed the DOS menu. This seemed 
like a waste of a disk, so I designed 
a short solution, AUTORUN Selector. 

When you append AUTORUN 
Selector to your favorite AUTO- 
RUN.SYS files, the next time you need 
to go to DOS, just press the [SELECT] 
key as you boot the disk and AUTO- 
RUN Selector will skip over your AU- 



TORUN.SYS file and load DOS. 

GETTING STARTED 

Type in Listing 1, SELECTBAS, 
check it with TYPO II and SAVE a 
copy before you RUN it. When RUN, 
SELECTBAS creates the machine lan- 
guage program, SELECT.EXE, and 
writes it to your disk. Antic Disk Sub- 
scribers will find SELECT.EXE on the 
monthly disk. 

Listing 2, SELECT. M65, is the 
MAC/65 source code. You do not need 
to type it in to use AUTORUN Select. 

Before AUTORUN Selector will 
work, you must appended the SE- 
LECT.EXE file to the top of the AU- 
TORUN.SYS file you want it to work 



with. Here's how to do it: 

1. Make backup copies of SE- 
LECT.EXE and the AUTORUN.SYS file 
you need to modify. Keep the origi- 
nals in a safe place — we'll work with 
the backups. 

2. Type DOS to bring up the DOS 
2.0 (or DOS 2.5) menu. Make sure SE- 
LECT.EXE and your AUTORUN.SYS 
file are on the same disk. 

3. Type the following: 
C [RETURN] 

AUTORUN. SYS, SELECT.EXE/A 
[RETURN] 

This copies your AUTORUN.SYS 
file onto the end ofSELECT.EXE. The 
SELECT.EXE file now contains AUTO- 
RUN Selector and a copy of your AU- 



JUNE 1989 



7 



HAVE A QUESTION 
ABOUT YOUR 
SUBSCRIPTION? 

Get an answer fast! 

Call 
(415) 372-6002 

Write: 

Antic Customer Service 
P.O. Box 1569 
Martinez CA 94553 




TORUN.SYS file. 

4. Delete the AUTORUN.SYS file. 
You don't need it anymore because 
SELECT.EXE contains a copy of it. 

5. Rename SELECT.EXE to AUTO- 
RUN.SYS. 

This AUTORUN.SYS file is the fin- 
ished product. The AUTORUN.SYS 
file will load and run just as it did be- 
fore, whenever you boot the disk. If 
you press the [SELECT] key while 
booting, AUTORUN Selector will skip 
over your AUTORUN.SYS file and 
load DOS instead. Make sure you have 
the DUP.SYS file on your disk when 
you do this. 

AUTORUN Selector will also work 
whenever you press [SELECT] and 
any other console key. For example, 
XL/XE owners who want to use AU- 
TORUN Selector with a program that 
doesn't use BASIC can simply press 
both the [SELECT] and [OPTION] 
keys while booting. 



AUTORUN Selector first checks 
DOSVEC (10, SOA) for the address to 
branch to if DOS is selected. Next, it 
takes the value from CONSOL (53279, 
SD01F) and determines which con- 
sole keys are being pressed. If bit 1 of 
CONSOL is clear, the [SELECT] key is 
being pressed. This is true even when 
the [SELECT] key is pressed along 
with other console keys. 

If [SELECT] is not pressed, AUTO- 
RUN Selector continues to load the 
rest of your AUTORUN.SYS file. 

Otherwise, if [SELECT] is pressed, 
AUTORUN Selector jumps to the ad- 
dress it took from DOSVEC and loads 
DUP.SYS which contains the DOS 
menu. A 

Jason Strautman lives in San Antonio, 
Texas and has been programming for the 
last five years. This is his first appearance 
in Antic 

Listing on page 33 
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For The Dealer Nearest You! 
EAST COAST WEST COAST 
61 5-478-5760 206-882-2009 
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FlashStick Subliminals 



TapeTime Labelers 
Add-on 



Smart RAM 2.5 



Type-In Software 

Customizing the Atari 



Operating System 
Device Handlers: 



Part 1 



By Bob Martin & Martin Mercorelli 



This article, the first of a two-part series for 
experienced BASIC programmers, explains how the 
Atari operating system handles the various devices 
attached to your computer and gives you a step-by-step 
approach to adding a new device handler or modifying 
an existing one. The BASIC programs work with any 
Atari 8-bit computer, disk or cassette. 



The ability to change your com- 
puter's operating system is a very 
powerful technique. Atari 8-bit 
owners arc in for a treat, because there 
are several ways to customize your sys- 
tem through software. To illustrate, 
two programs are included with this 



article. The first creates a device han- 
dler that does nothing. (Believe it or 
not, that can be useful.) The second 
modifies the printer handler to print 
non-printing characters. 

The printer handler was written for 
the Epson RX-80 and the C.Itoh 



Prowriter, but it should work with 
any printer capable of dot-graphics 
printing. Each program illustrates a 
different aspect of creating device 
handlers. 

What good is adding a device han- 
dler to the operating system instead 
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of having your program perform the 
same function? To answer this, let's 
look at how the operating system in- 
teracts with the outside world. 

CIO ROUTINE 

Among the Atari operating system's 
best features is the way it handles in- 
put and output (I/O). All I/O opera- 
tions are generally performed in the 
same way, regardless of which periph- 
eral device is accessed — disk drive, 
keyboard, screen editor or printer. We 
can simplify I/O because it's normally 
handled through the Central In- 
put/Output routine (CIO). 

In BASIC, I/O is done so naturally 
that you hardly notice the complex- 
ity of what is actually happening. One 
example is the use of CIO to send data 
to the printer: 

First, open the device through a 
CIO control block with the command 
OPEN #3,8,0,"P:". This does three 
things: 1) it tells the operating system 
to OPEN CIO control block #3 
(IOCB3) for I/O and to prepare for I/O 
to the printer; 2) the 8 tells the oper- 
ating system that data will flow from 
the computer to the printer; and 3) 
the "P:" tells the computer to send 
data to the printer. Therefore the 
OPEN command is for initialization. 

Summing up, a device handler sim- 
ply tells the computer how to talk to 
a device. The computer needs to 
know the direction of data flow, 
which path (or channel) it will use, 
where to find data, where to put it and 
how much of it to grab. 

DEVICE HANDLERS 

If CIO is the computer's I/O inter- 
face to the user, then the device han- 
dlers are the computer's interface to 
peripheral devices. 

For example, how does the com- 
puter send data to the printer? Since 
the printer isn't a disk drive or key- 
board, your Atari obviously needs a 
special routine, which is part of the 
device handler. 

Each device handler has six rou- 
tines: OPEN, CLOSE, GET, PUT, STA- 



TUS, and SPECIAL (See Figure 1). In 
BASIC these machine language rou- 
tines are controlled through I/O com- 
mands. For example, when your pro- 
gram issues the command OPEN 
#3,8,0,"?:" it is actually using the 
OPEN part of the printer handler. 

Every handler contains six machine 
language routines and a table contain- 
ing the address of each routine minus 
one. 

Why the minus one? CIO accesses 
a function by pushing its address onto 
the stack, then executing an RTS (Re- 
Turn from Subroutine). The RTS in- 
struction directs the program to the 
address on the stack plus one. To ar- 



Each 
device handler has 
six routines. 



rive at the correct address, we must 
compensate by subtracting one from 
our target address. 

HATABS 

CIO finds the address of the appro- 
priate handler table in the Handler Ad- 
dress Table, HATABS. This table is a 38- 
byte block of memory occupying lo- 
cations 794—831 ($031A— $033F). 

Each device handler has its own 
three-byte entry in the Handler Ad- 
dress Table. The first byte is an ASCII 
character representing the name of 
the device (K for keyboard, D for disk 
drive, etc.). The next two bytes hold 
the address of that device's handler 
table. 

When you issue an OPEN 
#3,8,0,"P:" command, for example, 
CIO looks through HAIABS for a "P". 
Then it uses the next two bytes to find 
the address of the printer's handler ta- 
ble. Once found, CIO searches the 
printer's handler table for the address 
of the printer handler's OPEN routine. 



Finally, CIO executes the printer han- 
dler's OPEN routine (See Figure 2). 

Again, CIO finds the handler in two 
steps: 

- 1) Get the address of the appro- 
priate handler table from HATABS. 

- 2) Get the address of the handler 
routines from the handler table. 

WRITING YOUR OWN 
HANDLER 

Now that we know how CIO lo- 
cates the handler table, here's how to 
make your own handler: 

1) Write the program for the han- 
dler. (The handler must have the func- 
tions listed in Figure 1.) 

2) Set up a Handler Table with the 
address of each function (minus one) 
in the order given in Figure 1. The 
special function is a jump instruction 
beginning with a decimal 76, fol- 
lowed by the two-byte address of the 
special routine. 

3) Make an entry in the Handler Ad- 
dress Table for the device. 

That's all. Now let's focus on the 
two examples and how they imple- 
ment these steps. 

NULL HANDLER 

Type in Listing 1 , NULLHAND. BAS , 
check it with TYPO II and SAVE a 
copy before you RUN it. When RUN, 
NULLHAND. BAS installs the Null 
Handler, N:, on Page Six. Once in- 
stalled, you can test the handler by 
typing: 

LIST "N:" 

This command LISTs the program 
to the N: device. If your Atari responds 
with a "READY" prompt, the handler 
is properly installed. If you get an er- 
ror message, however, something 
went wrong. Check NULLHAND. BAS 
for typing errors, and try again. 

One use of the null handler is to 
check a disk for a scrambled file (Er- 
ror 164). One way to check is to use 
DOS to copy the file to the screen. 
This, however, is quite time- 
consuming. Instead, copy the file to 
the N: device. The Null Handler will 
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FIGURE 1 



Handler Table Organization & Functions. 

OPEN— Initialize the computer for I/O. 

CLOSE— Release the resources of the computer for other 
uses. 



GET— Receive one byte from the device. On return, the 
accumulator holds the byte. 

PUT— Put one byte out to the device. The byte is in the 
accumulator on entry to the put byte routine. 

STATUS— Test the readiness of the device. 



SPECIAL— Jump to a special routine not covered above. 

On entry to the above handler routines, the X 
register holds the CIO control block number 
and the Y register contains a 146 (error code 
for function not implemented in handler)* On 
return to CIO, the accumulator and the Y reg- 
ister contain the appropriate error code. 



do the job in a jiffy. 

To copy a file to the Null Handler, 
select choice C from the DOS menu 
and type: 

D:filename,N: 

If the file is read completely with- 
out error, then it's intact. All the files 
on a disk can be checked by typing 

"D:V,N:". 

PROGRAM TAKE-APART 

Listing 2, NULLHAND.M65, is the 
MAC/65 assembly language source 
code for NULLHAND.BAS. You do 
not need to type it to use the N: 
handler. 

Lines 540-590 contain the N: han- 
dler's routines (see step 1, above). 
Since the N: handler does nothing, all 
six functions can be handled by the 
same "do-nothing" routine. This rou- 
tine does nothing but end with an RTS 
instruction and return the appropriate 
error codes to CIO. All handler rou- 
tines must do this. 

Ending in an RTS means that CIO 
pushes the return address on the stack 
before jumping to the handler. This 
feature is useful if you're modifying 
an existing handler because it gives 
you two entry points. 

Error codes are handled the same 
way. When CIO jumps to the handler, 
the Y register contains error code 
146 — "Function not implemented in 
handler." If the Y register isn't 
changed, CIO will print "ERROR 
146" and return control to you. Since 
the handler does nothing, the only er- 
ror message to return is 1, 'Wo error 
has occurred." It should be in both the 
accumulator and the Y register. So 
putting a 1 into the A and Y registers 
is all this handler does before execut- 
ing the RTS. 

Lines 440-520 build a Handler Ta- 
ble for the N: handler (see step 2, 
above). Since all the functions are the 
same, there are five NULL-1 values fol- 
lowed by one JMP NULL. 

The Handler Table is always that 
easy to write — although the addresses 
usually aren't all the same. Just 
remember to subtract 1 from each of 



the first five functions. 

Lines 220-420 insert the N: device 
and the address of the N: handler ta- 
ble into the Handler Address Table 
(See step 3). This is the most compli- 
cated part of the program. Lines 220- 
310 look for a blank spot in HATABS. 
Lines 350-420 place the ASCII value 
for N into HATABS, followed by the 
two-byte address of the N: handler ta- 
ble (low byte, high byte). 

Since the letters indicating the 
devices are separated by a two-byte 
address, the routine that searches for 
a blank spot checks every third byte 
in HATABS. 

Finally, we place the program's in- 
itialization address, INSERT, into IN- 
ITAD (location 738, 802E2). This 
forces the program to start as soon as 
it is loaded into memory. Ending the 
initialization routine with an RTS 
returns control to DOS. 

USING PRINT HANDLER 

The modified printer handler 
makes it easier to get a hard copy of 



a file or BASIC program containing 
non-printing characters (such as the 
"clear screen" character). Normally, 
non-printing characters aren't printed. 
But a special problem arises when the 
printer recognizes a character as a 
control character. Control characters 
are acted upon, not printed. And at 
the very least, they produce a messy 
printout. But with the modified 
printer handler, a neat printout is eas- 
ily produced. 

Type in listing 3, PRHAND.BAS, 
checking it with TYPO II, and SAVE 
a copy before you RUN it. When RUN, 
the program will ask you what type 
of printer you own. Type [1] if you 
own an Epson printer, [2] if you own 
a C.Itoh printer, or [3] for other types 
of printers. Next, press [RETURN] 
and the program will create a file 
called EPSON.EXE (or CITOH.EXE 
for C.Itoh owners). This is the pro- 
gram which creates and installs the 
new printer handler. Antic Disk Sub- 
scribers will find both versions on the 
monthly disk. 
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FIGURE 2 



HATABS 

(HANDLER ADDRESS TABLE) PRINTER HANDLER TABLE 



Address of the 
Printer Handler 
Table (P:) 




Address 
of OPEN 
Routine 


Address 
of CLOSE 
Routine 


Address 
of PUT 
Routine 


Address 
of GET 
Routine 


Address 
of STATUS 
Routine 


Address 
of SPECIAL 
Routine 


► 




CASSETTE HANDLER TABLE 


Address of the 
Cassette Handler 
Table (C:) 


► 


Address 
of OPEN 

Routine 


Address 
of CLOSE 

Routine 


Address 
of PUT 
Routine 


Address 
of GET 

Routine 


Address 
of STATUS 
Routine 


Address 
of SPECIAL 
Routine 




DISPLAY EDITOR HANDLER TABLE 


Address of the 
Display Editor 
Handler Table (E:) 


► 


Address 
of OPEN 
Routine 


Address 
of CLOSE 
Routine 


Address 
of PUT 
Routine 


Address 
of GET 
Routine 


Address 
of STATUS 
Routine 


Address 
of SPECIAL 
Routine 




SCREEN HANDLER TABLE 


Address of the 
Screen Handler 
Table (S:) 


► 


Address 
of OPEN 

Routine 


Address 
of CLOSE 

Routine 


Address 
of PUT 

Routine 


Address 
of GET 

Routine 


Address 
of STATUS 
Routine 


Address 
of SPECIAL 
Routine 



Copy the appropriate .EXE file to 
a DOS 2.0 or DOS 2.5 disk. Make sure 
this disk has a DOS.SYS file. Next, re- 
name the .EXE file to AUTORUN.SYS. 
This disk will automatically install the 
new printer handler each time you 
boot your system with it. 

Once installed, type POKE 
1791,255 to activate the handler. 
POKE a zero into 1791 to return to 
normal printer operation. Your Atari 
will use the modified printer handler 
until you turn off the computer or 
press [RESET]. 

Listing 4, PRHAND.M65, is the 
MAC/65 source code for the printer 
handler. You do not need to type it. 

TAKE APART 

The only difference in our printer 
handler is the PUT BYTE routine, 
lines 1030—2570. 

Line 290 jumps to the old PUT 
BYTE routine, and the rest of it just 
checks for non-printing characters 
and supplies graphics data. 

For the PUT BYTE routine, the byte 



to be sent is in the accumulator when 
CIO jumps to the handler. This rou- 
tine first checks location 1791 (#06FF) 
to see if the modification is enabled. 
If so, it then checks to see if the byte 
to be sent is a non-printing character. 
For a non-printing character, the con- 
trol code for eight dot-graphics bytes 
is sent, followed by the dot-graphics 
data. 

Most printers plot dot graphics the 
same way. First, the printer is sent a 
control code enabling dot-graphics 
mode. On Epsons and compatible 
printers, the code is 27, 76 ([ESC]-[L]). 
Then comes the number of bytes the 
printer should expect. On Epsons and 
compatibles, a two-byte integer (low 
byte, high byte) is sent. The complete 
command for eight-dot graphics 
mode bytes is 27,76,8,0. On the 
C.Itoh and compatibles, it's 
27,83,48,48,56 (or [ESC]-[S]-[0]-[0]- 
[8]). Then the eight bytes of graphics 
data are sent to the printer. 

To use character data from the Atari 
internal character set, we must make 



it acceptable to the printer. Although 
your Atari and your printer can define 
a character in eight bytes, they arrange 
these bytes differently. 

The Atari's character set is or- 
ganized in horizontal slices starting at 
the top, and the printer needs verti- 
cal slices starting to the left of the 
character. 

To change a screen character data 
for the printer, each byte for the 
screen must be sliced one bit at a time, 
re-formed into eight new bytes and 
sent to the printer. In other words, bit 
zero becomes byte one for the printer, 
bit one becomes byte two, etc. 

Lines 210-240 contain the handler 
table. This table is even simpler than 
the last one. The new handler table 
is left blank so that the old table can 
be copied to it. Notice that the fourth 
two-byte address (corresponding to 
the location of the PUT BYTE rou- 
tine) has a label, making it easy to 
store the location of the PUT BYTE 
routine in the new handler table. 

Lines 340-800 contain the initiali- 
zation routine. Lines 340-430 search 
for the P: handler entry in HATABS. 
Then lines 460-620 copy the follow- 
ing address to a zero page location 
and replace the P: handler table ad- 
dress with the address of the new P: 
handler. The old PUT BYTE address 
is copied to the jump instruction (line 
290) after adding 1. And the new PUT 
BYTE routine address (minus 1) is 
placed in the new handler table. Fi- 
nally, the address of INSERT is stored 
at $02E2. 

NEXT MONTH 

Both handlers operate without 
communicating with the user. The 
ability to let the user select options is 
often important for a handler. In Part 
2 of the series we'll add I/O to the 
screen and add everything necessary 
for a complete handler. 

Remember that when writing a de- 
vice programmer, you only need to 
worry about half of the I/O 
conversation — CIO does the rest. A 
Listing on page 31 
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Print Pro 



By Earl Haley 



HELP files printed on half the pages. 



Ever wish you could print the HELP file from the Antic monthly disk in two 
columns? Two Column Print-Pro prints text files in two columns on most 
80-column printers. This handy BASIC program works on all 8-bit Atari 
computers with at least 32K memory disk drive and printer. 



As a thrifty Atari owner, I don't like 
wasting half a page of computer pa- 
per every time I use my 80-column 
printer to print 40-column documen- 
tation (such as the Antic monthly 
disk's HELP file). Inspired by the use- 
ful Doc Print-Pro program in the 
November 1988 Antic, I decided to 
write a similar program. 

Two Column Print-Pro reads a 40- 
column text file and prints it in two 
columns on an 80-column printer — 
without requiring you to rewind the 
paper. You can print the whole docu- 
ment at once, or have the printer 



pause after each page. Since the pro- 
gram doesn't use any printer control 
codes, it should work on just about 
any 80-column printer. 

GETTING STARTED 

Type in Listing 1, TWOCOLMN.BAS, 
check it with TYPO II and SAVE a 
copy to disk before you RUN it. 

If all you ever plan to do with this 
program is print the HELP file from 
the Antic monthly disk, the program 
will tell you all you need to know! 
Three or four simple keypresses will 
do it all. 



The first screen asks whether you 
are using standard or legal size paper. 
Next, choose either continuous feed, 
or a pause after each page. 

To print the HELP file from an Antic 
disk, put the disk in Drive 1. With the 
printer ready, choose option [1], 
ANTIC HELP FILE. The program will 
read the HELP file and print it in two 
columns. 

PREPARING YOUR OWN 
TEXT FILES 

To print your own document in 
two columns, load any text file into 
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Most of the programs on this disk are 
written in Atari BASIC. Some require 
special hardware or specific operating 
instructions. Please read the matching 
issue of ANTIC Magazine for complete 
document at i on. 

SUBSCRIPTION Info & Orders: 
(800) 347-6969. 

BACK ISSUE Orders: (800) 234-7001 
(Visa or Mastercard only, please.) 



By popular demand, we've included 
MORE music -files for Antic's AMP 
Music Processor (Antic Bi si: Bonus, 
Dec. 1988). This side features 
The Flight Of The Bumble Bee 
(filename "D: BEE" ) . And we've put 
a sleighfull of holiday songs on 
the back ! 

(You need the Antic Music 
Processor (AMP. EXE) to hear these 
songs. It was featured on the 
Dec. 1988 Monthly Disk.) 



Whenever there is sufficient room, 
we will be including TYPO II on 
the monthly disks. TYPO II is in 
LISTed form, and must be ENTERed 
before using. It will not RUN 
from the menu. 



The menu that appeared on the screen 
when you booted the disk will only 
RUN programs with a . BAS extender. 
If you try to run a program and the 
response is 'cannot run Filename', 
check the file extender with this 
1 isti 



•BAS BASIC saved program, use menu 

RUN or LOAD and RUN. 
. LST BASIC listed program, ENTER 

then RUN. 
•EXE Assembly language 'Load and 

Go' file. Remove BASIC, boot 

DOS, type L then enter the 

f i 1 ename. 

•ASM Assembly language source code 

(Atari Assembler Editor) 

Must be compiled. 
.M65 "SAVEd" MAC/65 assembly 

language source code. 

Must be compiled. 



.OBJ Machine language object file. 

Same as .EXE but not 'Load and 

Go' . See corresponding article, 
.SYS Reserved for DOS system files. 
•TXT Text file. Usually accessed 

by another program. 
•ACT ACTION! language source code. 

Must be compiled. 
.LG0 A Logo program. Requires the 

Logo cartridge. 



All programs from ANTIC issues dated 
prior to August 1984 were reproduced 
from ANTIC'S Archive. We've updated 
them from our HELP columns and 
most are compatible with the XL and 
XE machines. We have worked to insure 
that our programs operate as 
published, but we consider all our 
software listings to be works in 
progress which we encourage you to 
personalise and enhance. 

Good luck, and ENJOY ! 

-ANTIC ED 



your word processor. Change the top 
margin to 0, the left margin to 0, and 



the right margin to 38. Then print the 
document to disk as a new file. Be 
sure to use a different filename if you 
don't want to write over your pres- 
ent file! 

TWOCOLMN.BAS should be able 
to read and print any 40-column (or 
less) text file. However, only files with 
an extender of .TXT will be listed by 
the program's disk directory, so it's a 
good idea to add a TXT extender to 
the new file. 

To preview the printed file, load 
your new file back into your word 
processor. Remove any extra carriage 
returns, and this time save the file to 
disk as a regular text file. (If you print 
the file to disk again your word pro- 
cessor will probably just put all those 
unwanted carriage returns back in, to 
fill out what it thinks are blank lines 



at the end of pages. As a result, your 
printout will contain a lot of un- 
wanted blank lines.) 

You should now be able to print 
your file in two columns using 
TWOCOLMN.BAS. Simply choose 
option [2], OTHER, when the pro- 
gram asks what file you want to print. 
At the next prompt, enter the name 
of your file, and your text will be 
printed in two-column format. Of 
course, I can't guarantee that you 
won't end up with half a sentence all 
by itself on the last page! 

CUSTOMIZING THE 
PROGRAM 

Two Column Print-Pro doesn't con- 
tain any machine language routines, 
so it should be fairly easy to customize. 
If your printer is capable of elite size 
type (12 characters per inch), you 
might insert your own printer control 
code in the program for a slightly 
neater printout. 

You might also want to adjust the 
left margin by adding one or two 
blank spaces in line 290. For exam- 
ple, this line will make your left mar- 
gin two spaces wider: 
290 ?#2;" '';COLl$(S,F);COL2$(S,F) 

The program removes the XXXs 
and some of the control codes in the 
Antic Disk's HELP files. If you would 
like to have them all print, change line 
150 to: 

150 INPUT #1,R$ 

If you decide to use single sheets 
of paper (so you can print on both 
sides of the page), watch out for a pos- 
sible snag — when I remove the sheet 
of paper from my printer, the "out of 
paper" red light comes on. When I 
put in another sheet of paper, the red 
light goes out, but I often forget to 
make sure that my printer is reset to 
"on". The program just sits there, wait- 
ing for me to turn on the printer. If 
I turn the printer back on, the pro- 
gram resumes where it left off. A 



Earl Haley lives in Lockport, New York. 
This is his first appearance in Antic. 

Listing on page 39 



Easy Scan II 

The 1989 Antic Award Winner! (See May 1989 
Issue) Easy Scan II Is now even better! In 
addition to using; Graphic Modes 8 and 15, 
the Easy Scan II software Is updated, and 
now supports Graphic Modes 9, 10, & 11 as 
well! Allows for some lapresslre results! 

Easy Scan, the ONLY laage scanner for the 
Atari 8-blt line, yet, at an affordable 

Price. Uses the latest In technololgy - 
lber Optics, to "scan" the laage Into the 
coaputer. The laage can then be printed 
out. or save as a standard 62 sector file. 
Included at no extra charge, are utilities 
for converting to other foraats like: 
Koala, Print Shop, Pun With Art. RLE, and 
aore! Also Included la a Deao Disk. 

Systea Requirements: Atari XL/XE/XE GS 
with at least 128K RAM. Also needed. Is an 
Epson graphics compatible printer like; 
Epson FX80, Panasonic 1080, Star NX-10, 
and any of their newer counterparts. 

Price: Only 899.96 (♦ SAH - see below) 

Earlier versions can be updated for 820.00 
A Deao Disk is also available for 95.00 

Check/aoney order (US funds), with order. 
USA/APO/FPO add 83.50 S&H. c6d (USA only) 
83.00 extra. Canada/Mexico: add 87.00 S&H. 
All ether countrlea add 810.00 SAH. 

I nnova t iyo Coijcept a 
31172 Shawn Drive 
Wa*x*x-on, If I 48093 USA 

Phone : < 3 1 3 > 2 9 3 — O T 3 O 

Dealer Inquires Welcoae! 

Note: Ton can also find us on CoapuServe, 
in the Atari 8-blt section, In DL1S. You 
can reach us at CoapuServe » 76004, 1764 
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Now you can make easy computer animations using your 
Print Shop Graphics Editor as a cell animation studio. This 
two-part BASIC program consists of a Sequencer and a sep- 
arate Scripter that takes advantage ofRAMdisks. It works 
on 8-bit Ataris with at least 48K memory and a disk drive. 



The Icon Animation System 
makes 8-bit animation eas- 
ier than ever. You can use 
it as a tool to learn the 
basics of cell animation — or simply as 
an animated billboard. Using the 
Graphics Editor from Print Shop or 



Print Shop Companion (Broderbund) 
as a cell animation studio, you can put 
together as many as 25 images in a 
page-flipping animation of up to 100 
frames! 

The Sequencer module lets you or- 
ganize your cells in any order, even 



repeating or skipping frames as de- 
sired. Once you have your animations 
running, the Scripter program lets you 
link several animations together and 
run them from disk. You may also run 
them from a RAMdisk for smoother, 
faster operation. 
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GETTING STARTED 

Type in Listing 1, ANIMATOR. BAS, 
check it with TYPO II and SAVE a 
copy to disk before you RUN it. 

If you have trouble typing the spe- 
cial characters in lines 160, 170 and 
31000, don't type them. Instead, type 
in Listing 3, check it with TYPO II 
and SAVE a copy. When you RUN List- 
ing 3, it creates these hard-to-type 
lines and stores them in a file called 
LINES. LST. To merge the two pro- 
grams, type NEW then LOAD Listing 
1, 1 'D : ANIMATOR . BAS ' ' and then EN- 
TER "D:LINES.LST". Now, SAVE 
' 'D : ANIMATOR . BAS ' ' and type NEW. 

Next, ENTER "D: LINES. LST", de- 
lete line 160 and LIST "DrLINES.LST" 
back to disk. Now follow the 
same procedure with Listing 2, 
SCRIPTER.BAS. ANIMATOR.BAS and 
SCRIPTER.BAS share line 170 and 
31000, but SCRIPTER.BAS does not 
use line 160. Remember to SAVE the 
completed programs before you RUN 
them. 

MAKING 

PRINT SHOP CELLS 

You will need at least two disks, 
one formatted from the Print Shop 
program, another formatted with 
DOS 2.0 or 2.5. To create the cells or 
pictures for your animation, start 
Broderbund's Print Shop or Print 
Shop Companion and go to the 
Graphics Editor. 

In the Graphics Editor, you can 
draw an original picture or load any 
picture from your library of Print 
Shop icons. Pictures made with other 
programs can be converted to Print 
Shop for use with IAS, but you will 




need the necessary conversion 
programs. 

You can convert most types of Atari 
picture files (including many Com- 
puterEyes pictures) to Micro Illustra- 
tor files using Rapid Graphics Con- 
verter (Antic, November 1985). 
Newsroom Converter (Antic, Decem- 
ber 1988) is needed to convert News- 
room files to Graphics 8. You can then 
transfer your Micro Illustrator files 
and Graphics 8 files to Print Shop 
with Graphic Shop ($ 19.95, Arcade 
Catalog, AP156). 



IAS is best 
suited to cyclic 
animations. 



Keep in mind that IAS has a limit 
of 25 different pictures per se- 
quence — although you can repeat 
selected pictures within the actual ani- 
mation, for a total of 100 frames. IAS 
is best suited to cyclic animation, that 
is, sequences that repeat themselves, 
such as a running horse, a juggler, or 
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a waving hand. 

When your picture is ready, save it 
to your Print Shop data disk. Now, go 
back to the Graphics Editor and 
change the picture. You can move an 
arm, blink an eye, or whatever. Save 
the new picture to your data disk us- 
ing a different name. (I use CEL1, 
CEL2, CEL3,. . ) Repeat the process 
of editing and saving files until you 
have the effect you want. Remember 
that you can only use 25 cells in one 
IAS sequence! 

USING THE SEQUENCER 

Now that you have your cells, place 
your IAS program disk in Drive 1, turn 
on your Atari and RUN "D: ANIMA- 
TOR.BAS". Once the Sequencer menu 
appears, use the arrow keys to move 
the cursor, and press [RETURN] to se- 
lect the option indicated. 

CREATE ANIMATION FILE creates 
a sequence file from your Print Shop 
images. The program asks you for the 
number of pictures you wish to load, 
up to a maximum of 25. Then the 
program will load your files— starting 
with the first icon on the data disk. 
This way, you do not have to pick and 
choose each image to be included in 
your sequence. 

Once all the images have been 
loaded, you go to the Graphics 
Screen. Here, IAS will flip through 
your images in the order loaded. The 
controls below the picture let you ad- 
just the speed of your animation, 
freeze the action, or advance one by 
one through the frames. 

Use the arrow keys and [RETURN] 
to control IAS. With the cursor on 
SLOW or FAST, pressing [RETURN] 
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will change the animation's speed 
slightly. Keep pressing [RETURN] un- 
til the animation runs at the speed you 
want. Select PAUSE to freeze the ani- 
mation, and PAUSE again to continue. 
ADV will advance your animation 
one frame and will only work in 
pause mode. Use EXIT to get back to 
the main menu. 

At any time, you can return to the 
Graphics Screen from the main menu 
by choosing VIEW ANIMATION. 

The SEQUENCER lets you rear- 
range the order in which the cells are 
displayed. Any picture can be used 
more than once in any given se- 
quence, to produce a more complex 



animation. While you are limited to 
25 different pictures, you can define 
a sequence of up to 100 frames. En- 
tering a zero as the picture number 
will insert a pause in the animation. 
To exit the sequencer, press [RE- 
TURN] and you will be returned to 
the Graphics Screen, where you can 
view your altered animation. 

Once you've finished your se- 
quence, you can save it with the SAVE 
ANIMATION FILE option. Then you 
can load your sequence, or any of the 
samples on this month's Antic Disk, 
using LOAD ANIMATION FILE. You 
will be prompted for a filename 
to load. Press [RETURN] at this 
prompt to see a directory of the disk 
in Drive 1. 

Animation files consist of the 
stacked, uncompressed picture and 
sequence data. When entering a file- 



name be sure to use the device, 
filename and extension. To load the 
sample on this month's Antic Disk, 
put the disk in Drive 1 and at the 
"FILENAME TO LOAD'' prompt type 
"DrSAMPLE.SEQ". 

If you plan to use the Scripter, use 
.SEQ extenders on your animation 
filenames. The Scripter looks for a 
.SEQ extender on sequence files, and 
.SCR on script files. 

USING THE SCRIPTER 

With the Scripter program you can 
go beyond the memory limits of your 
Atari and create even more complex 
animations by loading your sequences 



to a RAMdisk and writing a "script" 
to run those files in any order. I 
designed Scripter specifically to run 
with a RAMdisk. 

IAS automatically checks to see if 
you have a RAMdisk installed. If you 
don't, the Scripter will load files from 
Drive 1 — but the beauty of the rou- 
tine is in the speed of a RAMdisk. 

When you RUN Scripter, the menu 
gives you the option to CREATE, 
LOAD, SAVE and RUN scripts, to exit 
to the SEQUENCER, or to LOAD 
FILES TO RAMDISK. If you don't have 
a RAMdisk, an X will appear in the 
box opposite this option, and you will 
not be able to select it. 

Whether you're using Drive 1 or a 
RAMdisk, the sequence files you want 
to combine all must be on the same 
disk. 

To load files into the RAMdisk you 



can either SAVE the files to "D8:", 
or use the Scripter's LOAD FILES TO 
RAMDISK function. This option will 
automatically clear the RAMdisk of 
all files (including DUP.SYS and 
MEM.SAV). It then transfers all se- 
quence files with the extension .SEQ 
from Drive 1 to the RAMdisk until the 
RAMdisk is filled. 

If you have a small RAMdisk, it may 
run out of room before all your .SEQ 
files are copied. To make the best use 
of your RAMdisk, you should remove 
any unnecessary .SEQ files from your 
floppy disk before you begin. (See Dr. 
Brilliant's Incredible Atari Brain 
Transplants (Antic, November 1988) 
to learn how to expand your 
RAMdisks.) 

If you want to keep the files in the 
RAMdisk while loading new files, 
hold down [OPTION] while you 
select this function, and keep it 
down until the screen displays 
* LOADING*. 

When you choose CREATE SCRIPT, 
you will be given a listing of the .SEQ 
files on disk. To create your script, 
simply pick the sequences you want 
to play, and then specify how many 
times that sequence should run before 
the next sequence loads and plays. In- 
dividual sequences can be inserted 
anywhere in the script and can be 
used as often as needed. 

IAS can be used to set up demos, 
or as an electronic signboard system. 
Experienced programmers could ex- 
tract the animation routines for use 
in their own programs, including 
games — and really ambitious pro- 
grammers could even try adding a 
sound track. A 

PRINT SHOP, $44.95. Broderbund Soft- 
ware, 17 Paul Drive, San Rafael, CA 
94903. (415) 492-3200, (800) 
527-6263. 



Jim Johnson is a Print Shop addict liv- 
ing in Seaford, Delaware. His program 
Iconverter was published in the Decem- 
ber, 1987 Antic. 

Listing on page 35 





While you are limited 

to 25 different pictures, 

you can use cells more than once, 

to define a sequence of 

up to 100 frames. 
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Doomed 

Can YOU survive three minutes in the death pit? By Tony Barnes 




Doomed is a dodge-and-fight 
game so challenging that you 
only need to survive three minutes 
to win. This BASIC program works 
on all 8-bit Atari computers having 
at least 32K memory, with disk or 
cassette. 



They throw you into the cell, and 
as you hit the cold hard floor they say, 
"If you can survive three minutes in 
that death pit you can have your free- 
dom!" Three minutes, you think. 
Could it be all that bad? 

Suddenly, strange beasts come at 
you from either side. Faster and faster 
they advance, sapping the very life 
from you with every pass. 

As you concentrate on lasting those 
three minutes, you notice that one of 
the beasts disappears, and then an- 
other. Then you realize that your 



mind waves kill these creatures! 

GETTING STARTED 

To play Doomed, type in Listing 1, 
DOOMED. BAS, check it with TYPO 
II and SAVE a copy. If you have trou- 
ble typing the special characters in 
lines 50, 5530-5565, 11000-11010 and 
20006-20010, don't type these lines. 
Instead, type in Listing 2. When 
you RUN Listing 2, it creates a file 
called LINES. LST. Merge this file 
with Listing 1 by typing LOAD 
"D: DOOMED. BAS and then ENTER 



"DiLINES.LST". Cassette users: 
CLOAD Listing 1, then insert the sep- 
arate cassette used for Listing 2 and 
ENTER "C:". Remember to SAVE 
the completed program before you 
RUN it. 

When you RUN Doomed and the 
main screen appears, press your 
joystick button to start the game. 
Pressing the joystick button will also 
bypass the introductory sequence. 

Creatures attack from either side. 
Any creatures you can't avoid must be 
shot with your "mind-blaster". To ac- 
tivate it, press the joystick button 
while moving left or right. 

The creatures on the ground are be- 
yond range of your mind-blaster. Your 
only chance is to jump over them. 
Move the joystick forward to jump up. 
As you fall back, you may move left 
or right, zapping the upper-level crea- 
tures and evading the creatures on the 
floor. 

As the game progresses, the ground 
begins to crumble away. Again, press 
the joystick forward to jump over the 
holes. Once you start to fall, move the 
joystick right or left to scramble onto 
the stable patches of bricks. 

Flashing flags at the bottom of the 
screen indicate your remaining 
strength. Once you're down to your 
last flag, you're doomed to die — and 
your game is over. 



Tony Barnes is a San Francisco commu- 
nity college freshman. His previous Antic 
games include Escape From Hell (June 
1988) and Shutdown (April 1989). 

Listing on page 29 
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FEATURE REVIEW 



DIAMOND 
OPERATING SYSTEM 

Point-and-Click for the Atari 8-bit, Reviewed by Matthew Ratcliff 





Touted as the "ST junior," 
Alan Reeve's long-awaited 
Diamond Operating 
System is finally here on a 
bank-switched, piggyback, super car- 
tridge. Diamond gives your 8-bit Atari 
a high-tech graphic user interface. 
Typing is replaced with "pointing and 
clicking." Commands are selected 
from "drop-down menus" and "pop- 
up dialog boxes". 

First and foremost, Diamond is a 
replacement for DUP.SYS, the disk 
utilities package that comes on your 
Atari DOS disk. The graphic user in- 
terface is friendly, almost intuitive. Al- 
though Diamond is not exactly a jun- 



ior ST, it is well executed. 

With this cartridge comes a lot of 
potential. Soon to be delivered in fi- 
nal form, Diamond Paint and Dia- 
mond Write are graphics and desk- 
top publishing-style word processing 
packages which will run under 
Diamond. 

The advantage of Diamond is that 
the same graphic user interface can be 
employed for many applications. This 
minimizes relearning as you go from 



one program to the next. Think of all 
the different programs you use on 
your 8-bit machine now, each requir- 
ing a different command set. Pro- 
grams that run under Diamond can 
eliminate all the confusion. 

When you first put Diamond to 
work, you want to configure it for 
operation under your DOS of choice. 
I had no problem using the utility pro- 
grams provided to create a CON- 
FIG.OS file for ICD's SpartaDOS. Dia- 
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mond even works with the 
SpartaDOS X cartridge. 

It's possible, though rather bizarre, 
to have MAC/65 piggybacked on top 
of the Diamond cartridge, on top of 
the SpartaDOS X cartridge, on top of 
the R-Time 8 clock cartridge. This is 
not very practical, however, and I had 
some problems on my system when 
running Diamond on top of the Spar- 
taDOS X cartridge (Version 4.19). Dia- 
mond does run well from disk-based 
SpartaDOS 3. 2d. 

After the Diamond "desktop" is up 
and running, you need to load and 
run CONFIGUR.APP from the sup- 
plied utility disk. This lets you set up 
your system for ST mouse, joystick, 
KoalaPad, or Atari Touch Tablet oper- 
ation. The default configuration is for 
an ST mouse in the second joystick 
port, which worked fine for my setup. 

If you do not have a mouse, you can 
still control the system with the ar- 
row keys on the keyboard, the space 
bar acting as the "mouse button". 
Pressing [RETURN] selects "default" 
menu options. 

DESKTOP TOUR 

The desktop presented by Dia- 
mond places a menu bar across the 
top of the screen. Each menu head- 
ing (Desk, File, Disk, and Options) has 
a drop-down menu associated with it. 
For example, if the mouse pointer 
(black arrow) is moved over the word 
Options, a box will drop down below 
it. Underneath, the words Display, 
Confirm, Install, and Save Desktop 
will appear. 

Moving the arrow over any of these 
words will highlight it in reverse video 
text. Press the [SPACEBAR] once (or 
double-click the mouse, or other ex- 
ternal device button) to then activate 
this option. 

For example, highlight Install and 
press [SPACEBAR]. A dialog box will 
pop up. This small menu usually 
comes up centered on the screen, on 
top of whatever was already there. In 
this case, the dialog box shows two 
prompts, Unit Number and Drive 



Number, each followed by a single 
blank. 

Any time a series of underline 
characters is displayed within a dia- 
log box, this indicates a field in which 
some text should be entered. Move 
the mouse pointer to the Unit Num- 
ber field and press the [SPACEBAR]. 

The pointer disappears, replaced by 
a flashing vertical bar which is the text 
cursor. Type the number of the drive 
you wish to install, such as 3, and 
press [RETURN]. The pointer will 
reappear, allowing a similar operation 
for the Drive Letter field. It is only log- 
ical to assign drive letter A to drive 
number 1, B to 2, and so on. 

Below these fields are three smaller 
boxes with text inside them, referred 
to as "radio buttons" or simply "but- 
tons". They are Install, Remove, and 
Cancel respectively. Cancel has an ex- 
tra dark outline, indicating that this 
is the default selection, chosen when- 
ever [RETURN] only is pressed. This 
default system works for any dialog 
box in the system. Place the arrow on 
Install and press the [SPACEBAR] and 
a new disk drive icon will pop up on 
the screen. The placement is auto- 
matic, but you may "drag" the icon 
elsewhere. 

Drag?, you ask. If you point at any 
icon or window on the display, press 
and hold the button, and then move 
the pointer, a ghost outline of the item 
will move along with the pointer. Re- 
lease the button and your icon or win- 
dow will be transplanted to this new 
location, if it can fit. The Diamond 
keeps track of where everything is 
placed on the screen, and it will not 
allow icons to overlap. 

I found it is best to allow Diamond 
to automatically place the drive icons. 
When I tried to place them manually, 
Diamond was very particular about 
how close together I set them, which 
made it very difficult to get my drives 
(all seven of them) laid out the way 
I wanted. 

ST LOOKALIKE 

Diamond provides drop-down me- 



nus and dialog boxes in a format very 
similar to the Atari ST's desktop in low 
resolution. The icons are oversized, 
taking up a big chunk of the screen. 
You won't find the "icon mode" for 
windows very useful (but then I never 
did on the ST either). Fortunately, an 
alternative "text mode" is provided. 

At first, double-click response to 
the mouse was poor. I found myself 
using the [SPACEBAR] more often 
than the ST mouse button, until I dis- 
covered that the mouse click speed 
may be adjusted with the CON- 
FIGUR.APP utility, under the Set 
Mouse Port option. 

Whenever you double-click on a 
disk drive icon, that drive is "opened" 
by Diamond. A window is created 
with a directory of that disk displayed 
inside it. Date and time stamps are 
shown for SpartaDOS users, and sub- 
directories are indicated properly. 

Double-clicking on a directory 
name will open up that directory. No 
more CHDIR command, followed by 
a separate DIR command is required 
here, simply point and click. The cur- 
rent directory path is shown at the top 
of the window, referred to as the title 
bar. I have found that, when several 
directory levels deep, Diamond does 
not always keep track of the current 
path. 

For example, if I went down 
to directory \FRED\JAMES\BROWN 
and then clicked on the close button 
(the small X at the top left of every 
window), Diamond would indeed go 
back one directory, as expected. The 
files listed in the window would be 
from directory path \FRED\JAMES, 
but the title bar would only display 
\FRED. Closing the window and re- 
opening it corrects the title bar. 

In the drop-down menu under File, 
you will find options for opening a 
file, checking disk status, duplicating 
disks, creating a new folder, closing 
a file, or quitting. Selecting Quit will 
return control to built-in Atari BASIC, 
or to the cartridge, if one is mounted 
piggyback on top of the Diamond car- 
tridge. 
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NO SPEED DEMON 

For normal disk maintenance, such 
as duplicating disks, you may still pre- 
fer your old-fashioned Atari DOS or 
SpartaDOS, since Diamond is much 
slower in all disk operations by com- 
parison. Duplicating an Atari DOS 
2. OS disk with Diamond takes over six 
minutes (with two drives), when it 
takes just over two minutes when us- 
ing Atari's DUP.SYS. 

In fact, just about anything you do 
with Diamond is going to be slower 
than you are accustomed to. This is 
the price you pay for all those lovely 
graphics. Any DOS for your Atari sim- 
ply manages a 940 byte text display. 
Diamond must manage nearly 8K of 
graphics memory, including multiple 
objects like icons, menus, and win- 
dows. It does the job well, but it does 
take time. The Atari 800XL or 130XE 
cannot be expected to emulate the 
ST's desktop at the same speed. 

Under the Disk menu you may for- 
mat a floppy disk or copy files. Files 
may also be copied by dragging a file 
from one drive's open window to an- 
other. The Options menu allows you 
to set display preferences. Files may 
be shown as icons or text. If you 
choose icons, lots of time will be 
wasted scrolling around the window. 
Sort selections for file listings include 
no sorting (for faster window up- 
dates), sort by filename, extender, or 
file size. I generally sort by name, mak- 
ing files easier to find in a list. 

The confirm option has a check 
mark by it to indicate that Diamond 
will ask you to confirm any opera- 
tions that may destroy a file on your 
disk. Clicking on this entry removes 
the check mark highlight, indicating 
that no confirmation requests will be 
issued. 

Install lets you add another disk 
drive definition, so Diamond will 
recognize your drives. I find it pecu- 
liar that Diamond will allow only 
seven drives, A-G, to be defined. An 
eighth drive is not allowed, limiting 
use with RAMdisks that must be ad- 
dressed as D8:. 



SAMPLE PROGRAM 



The file SKELETON. M65 was included in Diamond to assist you in writ- 
ing your own desktop accessory. The skeleton file was incorrect, and it 
took a bit of deciphering of RESET. ACC to get it right. I spent several hours 
studying the source files and came up with COLORME.ACC. This acces- 
sory, when activated, will shift the desktop color to the next hue value 
(same intensity) and display a dialog box. Click the button, and the desk- 
top will return to normal operation in the new color. 

I was not successful in developing my ow n event handling, and did not 
explore the possibilities of radio buttons and more complicated structures 
for a dialog box. The source listing for COLORME.M65 is presented below. 



1000 
1010 
1011 
1012 

1013 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

. ACC 

1120 

1130 

1140 

1160 

1170 

1190 

1200 

1210 

ane 

1220 

f flee 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

L0RT0 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

Color 

1400 

1410 

, 0 

1420 
1430 
1440 
1450 
1460 
1470 
1480 
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TRAP 
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CLIF 
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LISHING INC 

: C0L0RHE . EXE 

rosran - 

R5T 6 BYTE5 
C0L0RME • MAC 
accessory i 

COL ORME . EXE" 
COLORME.ACC" 
T ssi,A:NEXT I 



T *S2,1:G0T0 50 
OSE SS2:? "COLORME 



•OPT NO LIST 
.OPT OBJ 

.INCLUDE ssD : LIBRARY .M65 
.INCLUDE «D : DMACR05 . M65 

*= S2FF0 



. BYTE 



Color Me 



;10 Bute N 



WORD ENDACC-RUNACC ;Len9th o 
essor y 

WORD RUNACC ;Load address 

.WORD RUNACC ;Run Address 

.ACCESSORY UARIABLES 
C0L0REG = 710 



24,60,COLORSOBJ,CO 



RUNACC 

DO DIALOG 
UCH 

LDA C0L0REG 
C L C 

ADC ss$l0 
STA C0L0REG 

EUENTDI ALOG 

RELEASEDIALOG 
RTS 
COLORS 

.BYTE " •', 252,4, "Next Screen 
" , 1 3 , 1 3 

'BYTE 252,1." Accessory", 13 
.BYTE 252,1," by Mat*Rat",13 

C0L0RS0B J 

.BYTE 1 

.WORD COLORS, 8, 8 

.BYTE 8,255 
C0L0RT0UCH 

.BYTE 0,148,0,136,255 
END ACC 
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MULTI DRIVES 

I was able to install both my 10 meg 
FA-ST hard drive partitions, my XF551 
floppy disk, my 1050 disk, and mul- 
tiple MIO RAMdisks. I was even able 
to generate a RAMdisk using Spar- 
taDOS's RD.COM, which then resided 
in the 800XL's internal 256K (RAMbo- 
XL) memory. Diamond honored this 
RAMdrive definition and functioned 
properly with it. Certain memory 
configurations for Diamond may not 
allow internal RAMdisks to be used. 

When your window placements, 
drive icon definitions and other 
preferences are complete, simply se- 
lect Save Desktop from the Options 
menu. Diamond will create a file 
called DESKTOP.INF on the default 
drive A. The next time your system 
is booted with Diamond and this disk, 
the initial display and settings will 
match those in place when the desk- 
top was saved. 

The trash can icon is for deleting 
files, of course. Simply drag a file from 
any open window over to the trash 
can and Diamond will delete it for 
you. 

FEW PROBLEMS 

I have not run into too many prob- 
lems with Diamond. The key to 
smooth Diamond operation is proper 
setup with DOSCONFG.RAS and then 
CONFIGUR.APP. 

Diamond usually ran fine with the 
SpartaDOS X cartridge, but occasion- 
ally it would crash. I'm not sure if the 
problem is with my own highly- 
customized set-up or not — no one else 
I talked to had this problem. 

Diamond does not return DOS er- 
ror codes when a disk error occurs. 
It simply states that "A disk error has 
occurred". For example, SpartaDOS 
can access Atari DOS 2.0 and 2.5 
disks, with no problems. However, 
when operating Diamond with Spar- 
taDOS you cannot access disks in 
Atari DOS format. Diamond simply 
returns a disk error. Without an as- 
sociated error code, I have no idea 
what the problem may be. 



I have found that sometimes, when 
a disk error dialog box pops up, a 
crash of Diamond soon follows. 
Under normal operation (working 
with only one DOS, and disks format- 
ted in that DOS, throughout one ses- 
sion with Diamond), problems are 
rare. 

When two windows are open 
simultaneously, the bottom window 
does not get refreshed until it be- 
comes the top (active) window. Ac- 
cording to the programmer's refer- 
ence for Diamond, up to four 



You 
can "drag" 
the drive icon 
to where 
you want 
it. 



windows can be opened at once, but 
the Diamond cartridge allows only 
two disk drive windows open at any 
one time. The documentation men- 
tions this, but doesn't explain why. If 
the cartridge supports four windows, 
I would expect the desktop to use 
them as well. 

Copying multiple files can be tedi- 
ous with Diamond. With the Atari ST 
you can draw a "lasso" box around 
multiple files, and then drag the 
whole passel of them over to another 
window or drive icon for duplication. 
This "lasso" feature seems to be lack- 
ing in Diamond. 

The file selector employed in the 
CONFIGUR.APP program does not 
allow navigation of subdirectories. 
Nor does it allow the user to input 
wild cards to narrow down a set of 
file selections. Fortunately, this is not 
built into the Diamond cartridge, but 



is a function of a separate program file. 
The program is provided as 
FILESEL.M65, in MAC/65 source 
code, on the Diamond utilities disk. 
Ambitious programmers should be 
able to perfect it. 

Dragging files, icons, and other ob- 
jects is very basic to the operation of 
any graphic user interface. You can 
drag with the joystick, touch tablet, 
or mouse, but not with the keyboard. 
The arrow keys, coupled with a con- 
sole keypress could easily be im- 
plemented as a keyboard-controlled 
drag function, which should have 
been added for completeness. 

The Diamond User's Manual covers 
the basics of the desktop as briefly as 
possible. The short manual has no ta- 
ble of contents, nor an index. Screen 
graphics are provided, which are very 
helpful for the novice. 

The Diamond OS Programmer's 
Manual is provided for those who 
wish to write applications or acces- 
sories. The manual serves as a fair 
overview, but is in no way a complete 
reference guide. However, the source 
code for CONFIGUR.APP is provid- 
ed, CONFIGUR.M65. It presents ex- 
amples of dialog boxes, drop-down 
menus, a file selector, and more. 

With slightly more complete 
documentation, and final versions of 
Diamond Paint and Write, Diamond 
OS is likely to become a very popular 
operating environment for the 8bit 
Ataris. The current release is quite 
workable, and I am eager to see what 
develops for Diamond. A 

DIAMOND OPERATING 
SYSTEM 

Reeve Software 
29W150 Old Farm Lane 
Warrenville, IL 60555 
(312) 393-2317 

Requires minimum 48 K memory. 
$29.95 disk 

$79.95 cartridge and Programmer's Kit 
(Limited introductory special— five units per 
store— cartridge, Programmer's Kit and 
Diamond Paint all for $79.95) 
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SUPER DISK BONUS 



Antic Music Processor: 

Version 2.0 

Now you can add lyrics and sound effects, Program by Steven Lashower 



A ntic Music Processor, the 
/m popular December 1988 
Super disk bonus, came 
«JL JL with a sample song that 
displayed song lyrics. But there was 
no apparent way to enter lyrics — 
author Steven Lashower had plugged 
in text directly at the programming 
level. Many Antic Disk users seem to 
have spent hours staring in amaze- 
ment at the "Come Sail Away" com- 
position and pondering, 'That's 
great. . .but how can I do it?" 

Now, Antic Music Processor, Ver- 
sion 2.0 (AMP) comes with a fully in- 
tegrated lyric editor to give you that 
power. Version 2.0 also contains many 
new enhancements and additional 
features. Even more than the original 
version, this new Antic Music Proces- 
sor is the most powerful music per- 
former available for the 8-bit Atari 
sound chip. As you'll see in this issue's 
article about the AMP Song Contest 
Winners, the program has been used 
successfully for processing music as 
complex as Gershwin's entire "Rhap- 
sody In Blue." 

Your June 1989 Antic Disk— featur- 
ing Antic Music Processer, Version 2.0, 
plus the AMP Song Contest Winners 
as well as every type-in program from 



The new 
Note command 
produces sound 
effects. 



this issue — will be shipped to you 
within 24 hours after receiving your 
order. Just phone Toll-Free to the 
Antic Disk Desk at (800) 234-7001. 
The monthly disk is only $5-95 (plus 
$2 for shipping and handling) on your 
Visa or MasterCard. Or mail a $5- 95 
check (plus $2 shipping and handling) 
to Antic Disk Desk, 544 Second 
Street, San Francisco, CA 94107. 

This article explains the new fea- 
tures and commands in Antic Music 
Processor, Version 2.0. If you don't al- 
ready know how to operate the Antic 
Music Processor, you'll find full in- 
structions in a large HELP file on this 
month's Antic Disk. Those on-disk in- 
structions are likely to be necessary 
for your understanding of the user in- 
formation that follow. Admittedly, 
Antic Music Processor is not a pro- 



gram for Atari novices. 

By the way, the December 1988 
Antic Disk, also still available from the 
Disk Desk, includes the AMS File 
Translator utility program that con- 
verts widely available public domain 
files from Advanced Music System II 
into Antic Music Processor format. 

Another good reason why you 
might want to own both versions of 
Antic Music Processor is that all the 
new features make Version 2.0 use 
more memory than its predecessor. 
This could cause problems loading 
extra-large song files created with Ver- 
sion 1.2. 

You may be able to load massive 
files and play back most of the song 
in Version 2 .0— but the end of the file 
might be damaged. Trying to edit 
over-large files can cause the program 
to lock up. Instead, load any such files 
into Version 1.2 and cut them down 
there. Size limitations will vary, de- 
pending on the memory available in 
your 8-bit Atari computer. 

While you are editing your new 
songs, be sure to save your files of- 
ten. On some rare occasions, Version 
2.0 has locked up when the P com- 
mand is typed in the Note Editor. No- 
body has yet been able to get this bug 
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to repeat consistently, which would 
be the first requirement for fixing it. 
Any further information on this will 
appear, as soon as available, in Antic 
and on CompuServe's ANTIC 
ONLINE. 

USING THE PROGRAM 

Copy Antic Music Processor, Ver- 
sion 2.0 to another disk formatted 
with DOS 2.0 or 2.5. Don't attempt 
to run it directly from the monthly 
Antic Disk. Be sure the new disk con- 
tains the DOS.SYS file. Use DOS com- 
mand E to rename AMP2.EXE to AU- 
TORUN.SYS. Turn off your computer 
and remove all cartridges. Place the 
disk in drive 1. If you're using an XL 
or XE, hold down the [OPTION] key 
while you turn on your computer. 
Antic Music Processor will load and 
run automatically. 

Two new commands have been ad- 
ded to the Main Menu: 

X— Exit to DOS— Press the X key 
and insert a disk with DUP.SYS to exit 
to DOS. All music data currently 
stored in the computer's memory will 
be erased. 

W— Lyric Editor— Press the W key 
to enter AMP's integrated lyric editor. 

L and S — Before, AMP was only 
able to load and save files to drive one. 
AMP Version 2.0 allows you to load 
or save an AMP file from any disk 
drive. For example, to load "Come Sail 
Away" from drive 2, you would type: 

L D2.COMESAIL.MUS [RETURN]. 

NEW EDITOR COMMANDS 

L — Lyric Advance. Used to display 
and advance lyrics one syllable at a 
time. 

Nx,y,z — Note command. One of 
the few complaints about AMP 1.2 
was that it lacked the ability to pro- 
duce sounds other than pure tones. 
Note is an extremely powerful com- 
mand that can harness some of the 
power in the 8-bit Atari's sound gener- 
ating hardware that until now, has 
never really been utilized in previous 
music programs. 

AMP's new Note command gives 



you the ability to produce sound ef- 
fects and noise. Note is very similar 
to Atari BASIC'S SOUND command. 
Instead of using four numbers like 
Atari BASIC, Note uses the following 
three: 

x — Sound pitch (0-255) is exactly 
the same as the second number in 
Atari BASICS SOUND command— the 
lower the number, the higher the fre- 
quency of the sound. 

y — Sound distortion (0-254). 

z — Sound duration (1-126) in 
clocks. See Figure 1 for a list of dura- 



tions and their corresponding clock 
values. 

Let's convert SOUND 0,121,10,8 
into a Note command that will be 
played for 96 clocks, the duration of 
a half note: 

x = 121 

y = (10*l6) + 8 
z = 96 (clocks) 

The third number in Atari BASIC'S 
sound command (distortion) must be 
multiplied by 16 and added to the 
fourth number (volume). The result 
gives us NOTE 121,168,96, which can 
be entered into the AMP music editor 
by typing: 

N121, 168,96 [RETURN] 



LYRIC EDITOR 

You can use AMP's integrated Lyric 
Editor by pressing W from the Main 
Menu. The Lyric Editor is divided ver- 
tically into different sections. In the 
upper-middle of the screen is a big 
blue 20 x 11 character window. Up to 
11 lines of lyrics can appear in this 
window at one time. 

To the immediate left and right of 
the window is a small pointer. Press- 
ing [CONTROL] [UP-ARROW] will 
move the pointer up one line and 
[CONTROL] [DOWN-ARROW] will 



move the pointer down one line. The 
line bracketed by the pointers is the 
"current lyric line." Then [CONTROL] 
[LEFT ARROW] and [CONTROL] 
[RIGHT ARROW] can be used to cen- 
ter the text in the current lyric line. 

As you type commands, they will 
appear in the command line near the 
bottom of the screen. Error messages 
will be displayed just below the com- 
mand line. The status line at the bot- 
tom of the screen shows three things: 

1. The number of the current lyric 
line. 

2. Entry Mode, either Text or Play. 

3. The amount of memory left for 
entering lyrics. 



FIGURE 1 

Antic Music Processor Durations 

Clock Value of Duration 
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0 


12 


18 


21 


8 


Thirty-second Note 


(T) 


0 


6 


9 


10 


4 


Sixty-fourth Note 


(Z) 


# 


3 


4 


XX 


2 



x — Duration does not exist 



*— Since the clock values for these durations are larger than 126, they cannot be 
used with the Note command. 
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ENTERING LYRICS 

Let's go through the steps to enter 
the first line of lyrics for the song, 
''Come Sail Away" — I'M SAILING 
AWAY. To start out, type C from the 
Main Menu to clear out any music that 
might be residing in memory. Now, 
type W to enter the Lyric Editor. 

First of all, we must tell AMP that 
we're going to enter one line of lyrics. 
The command for this is L = — 
followed by up to 20 characters. No 
more than twenty characters can be 
displayed on a single line of lyrics. If 
you type the line below, it will now 
appear as the top line in the lyric 
window. 

L = I'M SAILING AWAY [RETURN] 

Next, we determine where to di- 
vide the lyrics up into syllables and 
breaks: I'M-SAIL-ING-A-WAY. Now we 
let AMP know about the syllables. Use 
[CONTROL] [UP-ARROW] to move 
the pointer back up one line. 

Notice that the lyric line is now 
highlighted right under the window 
in big, blue Graphics 1 (ANTIC 6) text. 
Look just below the Graphics 1 line 
to find the letters which correspond 
to the syllables and breaks. These let- 
ters will be — E, I, N and M. Now type: 

S = EINM [RETURN]. 

The E and M are used because they 
are spaces separating words, and like 
syllables, spaces are considered 
breaks. Press [CONTROL] [RIGHT- 
ARROW] twice to center the line on 
the screen. To see how this line will 
look when played by AMP, type: P 
[RETURN]. 

This changes Mode in the status line 
from Text into Play. Watch the Graph- 
ics 1 line and press [RETURN] to 
simulate a Lyric Advance command. 
Continue to press [RETURN] until the 
status line shows Mode: Text. 

You can abort play mode by press- 
ing [ESC]. Pressing [ESC] while in text 
mode will return you to the Main 
Menu. 

LYRIC COMMAND 
SUMMARY 

L= (followed by up to 20 charac- 



ters) [RETURN]— Enters a line of lyrics 
into the Lyric Editor. 

S = (followed by any sequence of 
letters from A to T) [RETURN]— 
Assigns syllables to the highlighted 
lyric text. 

C = (followed by any sequence of 
letters from A to T) [RETURN]— 
Removes syllables from the high- 
lighted lyric text. 

P [RETURN]— Changes to Play 
Mode and will perform the high- 
lighted lyric text. Pressing [RETURN] 
repeatedly simulates the Lyric Ad- 
vance command. 

[CONTROL] [UP-ARROW}— Moves 
the pointer up one line. [CONTROL] 
[DOWN-ARROW] moves the pointer 
down one line 

[CONTROL] [LEFT-ARROW] shifts 
the highlighted text one space to the 
right. The leftmost character, if any, 
will now "wrap around" and become 
the rightmost character. [CONTROL] 
[RIGHT-ARROW] shifts the high- 
lighted text one space to the left. 

[TAB] — Copies the highlighted line 
of lyrics down to the command line 
where it can be edited by pressing the 
[DELETE/BACKSPACE] key. 

[CONTROL] [DELETE]— Deletes 
the highlighted line of lyrics and 
places it in a one-line buffer. Any 
previous line stored in the buffer will 
be lost. 

[CONTROL] [INSERT]— Takes the 
line of lyrics currently in the buffer 
and inserts it directly above the high- 
lighted line of lyrics. 

[CONTROL] [CLEAR]— An alterna- 
tive to the C = command, clears ALL 
of the syllables in the highlighted line 
of lyrics. 

[ESC]— While in Play Mode, [ESC] 
can be used to return to Text Mode. 
While in Text Mode, hovever, [ESC] is 
used to return to AMP's Main Menu. A 



Steven Lashower studies Computer 
Science at California State University, 
Fullerton and works at Disneyland. He 
would be glad to see your comments and 
suggestions about Antic Music Processor, 
if you send them to him in care of Antic. 
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Song 
Challeng 

Winners! 



' 'Rhapsody In Blue' ' playing on your Atari 



By Carolyn Cushman, Antic Assistant Editor 



A ntic Music Processor, our 
Jm December 1988 Super 
A m ^k Disk Bonus, proved to be 

JL one oi" Antic's most popu- 
lar programs ever. We received many 
letters praising the program and sug- 
gesting improvements — and dozens 
of entries for the Antic Song Chal- 
lenge. The editorial staff had a great 
time playing all the tunes. 

The songs ranged from Vivaldi to 
Led Zeppelin and Billy Joel. One 
hardy soul entered Mussorgsky's "Pic- 
tures at an Exhibition" in two files for 
a total of 465 sectors of music. We 
received ragtime, polka, rock and pop 



tunes — and even one original sym- 
phony. Despite the lack of a lyric edi- 
tor in our first version of Antic Music 
Processor, two entries even had lyrics! 

Our Grand Winner is G.R. Poole 
of Virginia Beach, Virginia. His five 
ragtime tunes, all "Music of Scott 
Joplin", showed an outstanding sen- 
sitivity to dynamics, tempo and 
sound envelopes. "The Augustan 
Club", a lively waltz tune, proved a fa- 
vorite with several editors. 

Mr. Poole uses his computer in his 
work in the beverage wholesale busi- 
ness. He comments: 



"I have been an Antic reader since 
its beginning. Most of the programs 
never caught my interest. Stephen 
Lashower's Antic Music Processor is 
the first program that I can't get 
enough of. Being a retired Navy Mu- 
sician who never mastered the key- 
board, I have always been frustrated 
by the fact that the piano and I were 
not meant to be. Well, thanks to Antic 
I can do what I always wanted to 
do — play Scott Joplin. Thank you for 
a superb program." 

The winner will receive an Antic 
Software product from The Arcade 
Catalog. 
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RUNNER-UPS 

We received so many excellent en- 
tries we have eight runner-up win- 
ners. All of the runners-up will receive 
this month's Antic Disk issue. 

Unfortunately, many of the best 
song files we received were very large. 
There were so many good runner-ups, 
in fact, that we won't be able to put 




G.R. Poole 



them all on disk. To fit in as many 
songs as possible we have even cut 
some of them to give you a sampling. 
Full versions of the contest winners 
will be available for downloading 
from ANTIC ONLINE this month. Af- 
ter you log onto CompuServe, type 
GO ANT-2550 and follow the on- 
screen instructions. 

Runner-up Kevin O'Neil of West- 
minster, Colorado produced the huge 
"Pictures At An Exhibition" files, 
definitely pushing the Atari's limits. A 
programmer by day and a rock key- 
board player by night, he demon- 
strated a real talent for meter and dy- 
namics in translating this complex 
piece into four voices. Thoughtfully, 
he also included a thorough descrip- 

JUNE 1989 



tion of Mussorgsky's piece, the move- 
ments, and the artworks they were 
based on. 

The "Promenade'' portion of this 
piece will be familiar to owners of 
XE/XL computers— the Audio-Visual 
Self-Test plays the first measure of this 
piece. (To see this Self-Test, type BYE 
from BASIC, then [SELECT] the 



thanks to 
AMP I can 
do what I 
always wanted 
to do — play 
Scott Joplin." 
Grand Winner 
G.R. Poole. 



Audio-Visual test.) 

Glenn Saunders of Needham, Mass. 
sent in six Led Zeppelin tunes (and 
one from The Monkees). The bouncy 
Led Zeppelin tune "D'yer Mak'er" was 
selected as a runner-up. It's definitely 
got a beat you can dance to! 

Lee Vaughan took another runner- 
up spot with his rendition of a Bach 
Prelude. We picked this particular 
piece for its interesting trills and use 
of contrasting slurs and staccato. 

Lyle Davis of Cleveland, Ohio sent 
in an original composition, "Sym- 
phony #1 in A". Considered "interest- 
ingly Modern" by one judge, others 
found it somewhat discordant, but 
the First Movement, with its heavy 
bass beat, was considered definitely 



worth a runner-up position. 

Peter Fries of Piano, Texas sent in 
a long version of Ravel's "Bolero" that 
deserves extra runner-up credit for in- 
cluding text in the form of a title 
screen and "program notes" on com- 
poser and arranger. This is a much 
handier system than trying to identify 
song files with just a file name! At 165 



The Antic Music Proctsior version i.i 
(c) antic Publications 



sectors, however, the whole song is 
too long to include on disk — and cut- 
ting it short would remove the gradual 
build in volume that makes "Bolero" 
so intense. 

Mitch Cohen also produced an im- 
pressive, longer runner-up, with some 
interesting percussion effects — 
"Roundabout" by Yes. 

Cornelius Robinson of St. Rose, 
Louisiana, entered several classic 
pieces. We picked his lyrical version 
of Antonio Vivaldi's "Spring" (from 
"The Four Seasons") as a runner-up. 

Charles Anderson receives a 
runner-up award for his rendition of 
"Rhapsody in Blue" by George 
Gershwin — at 245 sectors, the longest 
single song file we received. 

HONORABLE MENTIONS 

Honorable Mentions go to Roger 
Jensen of West Jordan, Utah, who sent 
in 13 songs (including "Chopsticks", 
"Beer Barrel Polka", and "Music Box 
Dancer"); David Warren of Poway, 
California ("Black Magic Woman" and 
"Dance of the Hours"); Nathan 
Becker of Thousand Oaks, California 
("Splish Splash", "Wipe Out" and 
"Barbara Ann"); Robert Labelle of Ot- 
tawa, Ontario, Canada ("Summer of 
'69", "Stairway to Heaven"). 
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were not meant to be. Well, 



SOFTWARE LIBRARY 

TYPING SPECIAL ATARI CHARACTERS 



The Atari Special Characters and 
the keys you must type in order to 
get them are shown below: 

For [CONTROL] key combina- 
tion, hold down [CONTROL] while 
pressing the next key. For inverse 
[CONTROL] [A] through 
[CONTROL] [Z], press the [H] 
key— or [A ] on the 400/800— then 
release it before pressing the next 
key. (Press [ H ] or [ A ] again to turn 
off inverse.) For [ESC] key combina- 
tions, press [ESC] and then release 
it before pressing the next key. 

Carefully study the chart above 
and pay close attention to differ- 
ences between lookalike characters 
such as the slash key's [/] and the 
[CONTROL] [F] symbol [0]. 



NORMAL VIDEO 



FOR 
THIS 


TYPE 
THIS 


FOR TYPE 
THIS THIS 


S CTRL 


» 


B CTRL S 


LB CTRL 


A 


M CTRL T 


□ CTRL 


B 


B CTRL U 


ffl CTRL 


C 


D CTRL V 


91 CTRL 


D 


ffl CTRL W 


ffl CTRL 


E 


ffl CTRL X 


0 CTRL 


F 


B CTRL Y 


tS CTRL 


G 


ffl CTRL Z 


B CTRL 


H 


H ESC ESC 


Q CTRL 


I 


ffl ESC CTRL 


B CTRL 


J 


BB ESC CTRL - 


H CTRL 


K 


EH ESC CTRL + 


B CTRL 


L 


ffl ESC CTRL * 


□ CTRL 


M 


m CTRL . 


□ CTRL 


N 


BG CTRL ; 


B CTRL 


0 


H SHIFT = 


H CTRL 


P 


H ESC SHIFT 


ffl CTRL 


Q 


CLEAR 


H CTRL 


R 


ffl ESC DELETE 
ffl ESC TAB 



INVERSE VIDEO 



FOR 
THIS 



TYPE 
THIS 



□ ESC 

SHIFT 
DELETE 

□ ESC 
SHIFT 

INSERT 

□ ESC 
CTRL 

TAB 

□ ESC 
SHIFT 

TAB 

□ A CTRL . 

□ A CTRL ; 
O A SHI FT = 

□ ESC CTRL 2 

□ ESC 
CTRL 

DELETE 
D ESC 
CTRL 
INSERT 



TYPO II AUTOMATIC PROOFREADER 

TYPO II automatically proofreads Antic's type-in BASIC listings. Type in the listing below and SAVE a copy to disk 
or cassette. Now type GOTO 32000. At the prompt, type in a single program line without the two-letter TYPO II 
code at the beginning. Then press [RETURN]. 

Your line will reappear at the bottom of the screen. If the TYPO II code does not match the code in the magazine, 
then you've mistyped your line. 

To call back a previously typed line, type [*], then the line number, then [RETURN]. When the completed line ap- 
pears, press [RETURN] again. This is how TYPO II proofreads itself. 

To LIST your program, press [BREAK] and type LIST. To return to TYPO II, type GOTO 32000. To remove TYPO 
II from your program, type LIST "D:FILENAME",0,31999, then [RETURN], then NEW, then ENTER 4 4 D: FILENAME 
then [RETURN]. Now you can SAVE or LIST your program to disk or cassette. 



Don't type the 
TYPO II Codes! 



WB 
Utl 

H5 

BN 

YC 

EM 
HS 

XH 



TH 
MF 



32006 REM TYPO II BY ANDY BARTON 

32810 REM UER. 1.8 FOR ANTIC MAGAZINE 

32020 CLR :DIM LINES C120J I CLOSE «2:CL0 
5E »3 

32030 OPEN «2,4,8,"E":0PEN »3,5,8,"E" 

32040 ? P05ITI0N 11,1:? "hrfUIJOlHHHH" 

32050 TRAP 32040 : POSITION 2,3:? "Type 
in a prograM line" 

32060 POSITION 1,4:? " " : INPUT «2;LINE 
S:IF LINE$="" THEN POSITION 2,4:LI5T B 
:G0T0 32060 

32070 IF LINE$ ci , 1> = "*•• THEN B = UAL CLIN 
E$ C2 , LEN CLINE$J J J : POSITION 2,4:LI5T B: 
GOTO 32060 

32080 POSITION 2,10:? »C0NT" 

32090 B = UAL CLINES) : POSITION 1,3:? ; 



NY 
CN 
ET 

CE 
QR 



UU 

UJ 
JU 
EH 
BH 
HB 
IE 

UG 



2100 

2110 

2120 

: P0SI 

2130 

2140 

INE$ = 

TO 32 

2150 

N5+ CC 

2160 

2170 

2180 

2190 

2200 

2210 

LC ODE 

2220 

Mate 
oue . " 



POKE 
POKE 
? "* 
TION 
C = 0 : A 
POSIT 
.... jH 

050 
FOR D 
*A5C c 
C0DE = 
C0DE = 
HCODE 
L CODE 
HCODE 
POSIT 

i 

POSIT 
h pre 
: GOTO 



842, 13 : STOP 
842, 12 

POSITION 11,1:? "llli^UMMI 
2,15'LIST B 
N5 = C 

ION 2,16:INPUT »3;LINE$:IF 
EN ? "LINE ";B;" DELETED" : G 

=1 TO LEN CLINE$1 : C=C+1 : AN5= 

LINE$CD,D>>> : NEXT D 

INT CAN5'676) 

AN5- CC0DE*676* 

= INT CC0DE'26J 

=C0DE- cHC0DE*26>+65 

=HC0DE+65 

ION 8,16:? CHRS cHCODEJ ; CHRS 



ION 2,13:? 
32858 



'If CODE does no 
and edit line a 
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Can YOU survive three minutes in the death pit? 



Doomed 



Article on page 18 



LISTING 1 



Don't type the 
TYPO II Codes! 



2 REM DOOMED 

4 REM BY TONY BARNES 

6 REM ccil989, ANTIC PUBLISHING INC 
10 GRAPHICS 18:G0SUB 56:G0SUB 26888:G0 
SOU 11000:GO5UU 1OOO0:GO5UB 5500:GOSUB 
40 



POSITION 3,6 



20 POSITION 3,?:? »6;"«' 
• ? «6 ; " o ** + , - 
2b POSITION 0,9!? »6;"tony barnes a 
ntic"; 

30 GOTO 8006 

40 POKE 708,6:POKE 710,22:POKE 709,10: 
RETURN 

50 BRK= USR CADR c"hawciMhhMWra\apd**uf:W3 , 
1> : RETURN 

60 FOR T = 15 TO 0 STEP -1:S0UND 0,193,1 
0,T:SOOND 1,47,12,T:NEXT T 
65 SC=5C+5:P0KE 53278 , 1 : POSITION 0,11: 
? »6;SC:RETURN 

100 IF PEEKC19>>=4 THEN POKE 19,0:LUL= 

LUL+1 « IF LUL>8 THEN 1300 

105 MN= NOT MN-IF MN THEN 200 

110 IF X2<57 OR X2>190 OR Zl=l THEN 13 

0 

115 X2=X2+D2 : POKE 53250 , X2 : SOUND 3, PEE 
KC537701 ,2,l:RETURN 

130 FOR T=200 TO 192 STEP -1:S0UND 0,T 
,12,2:P0KE 706,T:NEXT T 

135 POKE 53250, 0 : POKE 706 , 200 « Z1=0 : P2$ 
= PM$ : I = INT CRND C0J*2> 

140 D2=LUL*cl=0) -LUL*cl>0i : X2=57* cl = 0 > 

+19 0*cl>0> :I=INTcRNDc0>*3>+1 

145 Y2 = 31* cl = u +39* d = 2> +47* cl = 3> : IF D 

2<0 THEN P2$ CY21=BR$ : RETURN 

150 IF D2>0 THEN P2$ cY2> = BL$ : RETURN 

200 IF X3<57 OR X3>190 OR Z2=l THEN 22 

0 

205 X3=X3+D3 : POKE 53251 , X 3 : SOUND 2, PEE 
KCS3770* ,2,l:RETURN 

210 FOR T=200 TO 192 STEP 1:50UND 0,T 
,12,2:P0KE 707,T:NEXT T 

220 POKE 53251, 0:POKE 707 , 200 : Z2 = 0 * P3$ 
= PM$ : I = INT CRND C0>*2> 

225 D3=LUL*cl=0> -LUL*cl>0» : X 3 = 57** cl = 0> 

+190*cl>0>: I = INT CRND C0>*3> +1 

230 Y3=31*cl=l)+39*cl=2>+47*cl=3> : IF D 

3<0 THEN P3$ CY3»=BR$ : RETURN 

235 IF D3>0 THEN P3$ cY3)=BL$ : RETURN 

250 I=INT CRND C0>*18* +1 : LOCATE I,5,Z:T = 

132*cZ=132 OR Z = 162>+162*cZ = 16H+35*cZ 

= 35J 

255 COLOR T:PLOT I,5:RETURN 

1000 5T=PEEKC6321 : GOSUB 100 : POKE 53278 
,l:IF PEEKC53260J >0 THEN GOSUB 1200 

1001 IF LUL>5 THEN GOSUB 250 

1002 IF PEEKC644>=0 AND 5T<12 THEN 110 
0 

1005 X = INT CCX1-44 3^8J :Y=INTccYl-16i'8> 
: LOCATE X,Y+2,Z:IF Z = 132 THEN 1250 
1010 IF Z=32 THEN Y1=Y1+1 ■ IF 5T>12 THE 
N P0$CY1>=R1$ 

1015 IF CST=10 OR ST=6 OR 5T=14> AND Z 
<>32 THEN 1150 

1030 X=X-CST>8 AND ST < 12> + CST < 8> : IF X< 
1 OR X>18 THEN 1035 

1032 X1=X1-2*C5T>8 AND ST < 12> +2* CST < 8> 

:ULK= NOT ULK 

1035 IF ST<8 THEN 1060 

1037 IF ST>12 THEN 1000 

1040 IF WLK = 0 THEN P0$cYD=Rl$ 

1045 IF WLK=1 THEN P0$cYl>=R2$ 

1655 POKE 53248, XI : GOTO 1688 

1666 IF MLK=0 THEN P0$(YD=L2$ 

1865 IF WLK=1 THEN P0$cYl>=Ll$ 

1675 POKE 53248, XI : GOTO 1066 

1186 SOUND 0, 143, 18, 3 : SOUND 1,147,16,3 

s POKE 5 324 9, XI -17* CST >8) +9*cST<8* 

1165 GOSUB 188:IF ST>8 THEN P0$cYl>=Rl 



TH 
JU 
HI 
QK 
UQ 

KN 

RX 
HX 
DE 

UU 
QJ 

UZ 
UY 

BQ 
HR 
UZ 

PA 

MY 

ZO 

YZ 

ZD 

KX 

AM 

GP 
UK 
ZT 
DP 
FZ 
IM 
OS 

KI 

KF 

WO 

YU 

FT 

5F 

UH 

IL 

RT 
UC 

QC 
JT 
ZE 



'GOTO 16 
8, 180 : 



$ : Pl$ CY1 + 3* = "UE3" 

1118 IF ST<8 THEN P8$ (YD = L1$ : Pl$ c Yl + 3 
> = "QU" 

1115 POKE 785, PEEKC26J : IF PEEKc53261>= 
4 THEN Zl=l:G05UB 66 

1128 IF PEEKC53261J =8 THEN Z2 = l : GOSUB 
66 

1125 POKE 53278, 1 : IF PEEK c53268> > =4 TH 
EN GOSUB 1266 

1136 SOUND 6, 6, 8, 6 : SOUND 1,0,0,0:P1$= 
M$:POKE 53249, 255:P0KE 53278, U 
65 

1158 FOR Q = 0 TO 16:S0UND 6,166, 
IF XK57 OR Xl>191 THEN 1165 
1166 X1=X1- CST=183 + C5T=6J 

1165 Yl=Yl-l:IF ST=14 THEN P0$cYl>=L2$ 
1178 IF 5T>8 AND 5T<12 THEN P0$cYl>=Rl 

$ 

1175 IF ST<8 THEN P8$CY1J=L1$ 

1188 POKE 53278, 1 : GOSUB 188:IF PEEK (53 

260>>=4 THEN GOSUB 1260 

1185 POKE 53248, XI :NEXT GMGOTO 1666 

1200 FOR T=15 TO 0 STEP -1:50UND 1,PEE 

K(b3778J ,18,T:NEXT T 

1265 PMR=PWR-l:IF PUR<-1 THEN 1256 
1216 COLOR 32:PL0T 11+PUR , 11 : RETURN 
1258 POP :F0R 1=8 TO 3 : SOUND I,8,8,8:N 
EXT I 

1255 FOR T = 8 TO 15:S0UND 0 , PEEK C53770) 
,8,l:S0UND 1 , PEEK C53770) , 12 , T : NEXT T 
1260 FOR T=15 TO 0 STEP ~1:S0UND 0,PEE 
KC537701 ,8, T 

1278 SOUND 1, PEEKC53770J , 12, T : FOR 1=70 
4 TO 711:P0KE I,T:NEXT 1 1 
1275 FOR T=0 TO 300:NEXT 
=P0$ : P2$=PM$ : P3$=PM$ : GOTO 8000 
1300 FOR T=140 TO 126 STEP -6.3:S0UND 
8,T,8,2:50UND 1 , T , 12 , 2 : POKE 784, T 
1385 NEXT T : P8$=PM$ : P1S=PM$ : P2$=PM$ : P3 
$=PM$:FOR T=8 TO 3 « SOOND T,8,8,6 
1318 POKE 53248+T,8:NEXT T:POKE 559,8: 
POKE 711, 146 : POSITION 8,8 



1 NEXT T 
T:P8$=PM$:P1$ 



1315 
1328 
1325 
1338 
1335 
1346 
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**6 ; "UUHIit*tt*ttttttit**mtmt*|]lillli*' ; 
«6 ; "« UI1UUUUHUUUU«HU II" ; 

«6;"« UUU SI"; 

«6;"«« 

«6 i "nun ffl-; 
«6 ; lllimJUUlJlJmiUIJLJllUllljlJlJIJ ; 

1345 P3$ C36J =H$ : P6$ C39»=R1$ : POKE 53251 
,88:P0KE 53248 , 128 : POKE 559,46 
1358 POKE 787,255:F0R T=6 TO 488:NEXT 
T : TMR=8 

1355 IF TMR < 66 THEN POSITION 8,11:? »6 
;"YOU HAUL EARNED " 

1368 IF TMR>60 AND TMR<128 THEN POSITI 
ON 8,11:? t*6;"Y0UR FREEDOM 
1365 IF TMR>126 AND TMR<266 THEN POSIT 
ION 6,11:? »6 ; 'UdCH^mmfiiBBB 

1376 IF TMR>288 AND TMR<258 THEN POSIT 

ION 8,11:? «6; i§ I MAS INNOCENT 

1375 IF TMR>258 AND TMR<288 THEN POSIT 

ION 8,11:? »6;"T0 BEGIN WITH 

1388 IF TMR>286 THEN POSITION 6,11:? n 

6;"HA HA HA HA HA" 

1385 TMR-TMR+1 : POKE 767 , 248 + 4* CRND C8»* 
1*:IF TMR<318 THEN 1355 
1396 GOTO 1266 

5586 POKE 559,6:DIM F $ (1) , F 2 $ c cINT cADR 
CF$ J '18241 +1»*1624 -ADR cF$* -1> , PM$ C384* 
,M$C128> 

5565 DIM P8$ C128> , Pl$ C128* , P2$ C128J , P3 
$ (128) 

5518 PM$ = ••»•• : PM$ C384 > =■•»•• ■ PM$ C2»=PM$:M 
$ = PM$ : P8$=M$ : P1$=P8$ : P2$=P1$ : P3$=P2$ 
5515 POKE 54279, ADR cPM$) ^256 : POKE 5327 
7,3:P0KE 623,24:P0KE 53257,1 

continued on next page 
29 



5520 DIM Ll*ci8>,L2*ci8>,Rl$ci8>,R2$ci 
8> , BL*C12> , BR*C12> ,HSci8) Rll 
5530 Ll$ = ,, fflU0BfflQeir<Lp<annE r lFJW' RP 
5548 L2$ = "BLIfflfflaOlilnHHn > 7 c c [HHM-- UF 
5545 RlS = "S)p8xpn6N<2U<Pog00W >a XO 
5550 R2S = "*p8xp-:> ufflffi ; riJnraratgfflIP!" 

5555 B L $ = "SB < ffJOMUUHJ < MIS" FT 
5560 B R$ = "«»< ajflffSDDHJ <(*»" 
5565 H*= M B<BDDODlB?fflBI M : RETURN 
8800 POKE 559,46:G0SUB 40:POSITION 0,0 
:POKE 711,146:P0KE 53248,120 TU 

80 0 5 ? «6 ; "HUaUttttttttttttttttttttttttHUUU" ; UK 
8010 ? st6;"» BBflflBBBBBBBBBB B" ; GX 

8015 ? «6;"» SI"; 5ft 

8020 ? tt6;"tsst SI"; 

8025 ? »6 ffl"j 

80 30 ? s*6 ; "BBBBBBBBBBBBBBBBBBBB" ; LU 

8035 POKE 53251, 80 : P3$ c36> =H* : P0$ c39> = 

Rl*:SOUND 0, 121, 10, 4 : 50UND 1,162,10,4 U 

8040 SOUND 2, 64, 12, 3 : FOR T=0 TO 50:NEX PR 

T T:POKE 559,46:F0R T=0 TO 50'NEXT T 

8045 FOR T=128 TO 140 STEP 0.5:POKE 70 MB 

4,T<S0UND 3 , T , 8 , T-128 : NEXT T 

8050 FOR T = 252 TO 255 STEP 0.5:POKE 70 RD 
7,TtS0UND 3,T,6,T-252«NEXT T 

8055 FOR T=4 TO 0 STEP -0.3:SOUND 0,18 PY 
2,10,T:SOUND 1,144, 10, T • SOUND 2,64,12, 
T TH 
8060 NEXT T'SOUND 3 , 0 , 0 , 0 * TMR = 0 UD 
8065 POKE 707,248+6*ccRNDc0>«2> >1> : TMR 
=TMR+1 MY 
8070 IF TMR>210 THEN POSITION 0,11:? u KB 

6 ; "nmmmmmffi ammu^mmtmw • ;:goto810o pu 

8075 IF TMR>60 AND TMR<90 THEN P05ITI0 

N 0,11:? t*6 ; "GUILTY AS CHARGED" I.M 

8080 IF TMR>90 AND TMR<120 THEN POSITI 

on 0,11:? »6 ; "ramnBHBmiiiBRriimmtinimn" bo 

8085 IF TMR>120 AND TMR<160 THEN POSIT YC 
ION 0,11:? «6;" GUILTY 

8090 IF TMR>160 THEN POSITION 0,11:? u DM 
6;"T0 THE DOOM CHAMBER" 

8092 IF PEEKC644>=0 THEN TMR=210 BK 
8095 GOTO 8065 

8100 FOR T=140 TO 128 STEP -0-3:POKE 7 MM 
04,1: SOUND 3,T,6,T-128:NEXT T I POKE 704 
, 8 

8110 POKE 707,248+6«ccRNDc0>*2>>l> : IF CM 
PEEK €644* THEN 8110 

8115 5C=0 : PWR=9 : TMR=0 i Yl=39 : X2=0 : X3=0 : UU 
LUL = l:P0*CYH=L2« 

8120 POKE 704,170:POKE 559,0:POKE 5325 AR 

1,0:POKE 53248, 8 : POSITION 0,8 PU 

8125 ? «6; "BflBBttttBBBBBflBBttttBBflB" ; AL 

8138 ? tt6;"Si UUBB BBBB B"; 

8135 ? «6;"Sl «" ; JU 

8140 ? «6;"S) B"; UU 

8145 ? »6;"SI »"; 

8150 ? »6; "BBmsBttBBttmtflBBtttsflBttfl" : POSIT 

ION 0,11:? t*6;"0 "'-POKE 559,46 ZG 

8155 COLOR 192:PL0T 9,11:DRAMT0 19,11: 

FOR T=4 TO 1 STEP -l:COLOR 32 

8160 PLOT 0,T:FOR 1=15 TO 6 STEP -0.5: OE 

SOUND 0,237, 10, I:SOUND 1,192,12,1 

8165 NEXT I:NEXT T : FOR Xl=48 TO 64 5TE 

P 0.5:SOUND 2 , XI , 10 , 2 ■ POKE 53248, XI CF 

8170 NEXT Xl'FOR T = l TO 4:C0L0R 5:PL0T 

0,T:FOR 1=6 TO 0 STEP -0.3 
8175 SOUND 0,237, 10, I:SOUND 1,192,12,1 UH 
: NEXT I:NEXT T : SOUND 2,0,0,0 
8180 POKE 711,32:G0T0 1000 

10000 RESTORE 11100:READ DNUM PE 
10010 D=PEEKC560>+256*PEEKC561> 
10020 FOR 1=1 TO DNUM : READ B : POKE D + B, 
PEEKCD+B>+128:NEXT I SS 
10030 B = INT CADR CDLIS) '256> : A=ADRcDLI$i 
-B*256:PQKE 512,A:POKE 513, B 

10040 POKE 54286, 192:P0KE 256,Z:RETURN FH 
11000 DIM DLI$C55> :DLI$ = "HBi![iimn[fiBBOnn[a 

sa> BtjfflhQiitfibysa • BpcBhoananiBEiBB' 1 

11010 DLI$ C413 ="\ jHHWWBfflaa HSShG" : RETUR HD 
N 

11100 DATA 3,10,11,12 

20000 POKE 559, 0 : CHR=38912 : 1=256*224 : P GR 
OKE 756,152 

20005 DIM C$C126> 

20006 c*ci,63> = [unaHcaDSUfjnmoinracnm?]""" x u 
mm m wesddb* mmmmamwniE ? < mum ? \m\m < < m 

HUB* 

20007 C*<64,126»="aNQ£<<QD[EUO&OQ£a]DBfc]H EB 
0dDsnw>nHS(>!Kmf fMP]9l>cBhD9l6nne3nH9 36iB m 0 
8<88 " 

20010 M0u=ADRc-hh0Kriha[3hamhaDhamhamfli!O[3 ix 



20015 I=USRcMOU, 57344, 38912, 1024) 
20020 FOR X=l TO LENCC$3 STEP 9 
20030 0FF5ET=A5CCC$CX,X>* 

2003 5 Z = USRcMOU, ADRCC*CX+1U ,CHR + 0M-5E 
T*8,8> : NEXT X 
20040 Z=7:RETURN 



LISTING 2 



30 



10 REM DUUMED, LISTING 2 
20 REM BY TONY BARNES 

30 REM co 1985,1989 ANTIC PUBLISHING 
35 REM c CREATES LINES 50, 5530-5565, 1 
1000-11010 AND 20006-20010 FOR DOOMED . 
B AS J 

40 REM CLINES 10-250 MAY BE USED WITH 
U1HER BASIC LOADERS IN THIS ISSUE- 
50 REM CHANGE LINE 70 AS NECESSARY - > 
60 DIM FN*C20> ,TEMP$C20* , ARS c93> :DPL=P 
EEKC10592) :POKE 10592,255 

70 FN$="D:LINES-LST":REM THIS IS THE N 
AME OF THE DISK FILE TO BE CREATED 
80 ? "NliJisk or ftassette?"; : POKE 764,25 
5 

90 IF NOT CPEEKC764>=18 OR PEEKc764*= 
583 THEN 90 

100 IF PEEKC764J=18 THEN FN$="C:" 

110 POKE 764, 255 : GRAPHICS 0:? " AN 

TIC'S GENERIC BASIC LOADER" 

120 ? ,"BY CHARLES JACKSON" 

130 POKE 10592, DPL:TRAP 200 

140 ? :? :? "Creating ";FN$:? "...Plea 

se stand by." 

150 RESTORE : READ LN : LM=LN : DIM A$ CLN> : 

C = l 

160 AR$="":READ AR$ 

170 FOR X=l TO LENcAR^i STEP 3:P0KE 75 

2,255 

180 LM=LM-1 : POSITION 10,10:? " (CountdO 
wn - - - T-"; INT cLM'10> ; "i 

190 AScC,C>=CHR$cUALcAR$cX,X+2>>> :C=C+ 
l:NEXT X:GOTO 160 

200 IF PEEKC195>=5 THEN ? :? :? "QTOO 
MANY DATA LINES!":? "CANNOT CREATE FIL 

h ! " : END 

210 IF C<LN+1 THEN ? :? "QTOO FEW DATA 

LINES!":? "CANNOT CREATE FILE ! " : END 
220 IF FN$="C:" THEN ? :? " Prepare ca 
ssette, press [RETURN] " 
230 OPEN «tl,8,8,FN$ 

240 POKE 766,1:? ttl ; AS ; : POKE 766,0 

250 close tti:GRAPHics 0:? "BMmiijrarii^firaraB 

•■ 

1000 DATA 582 

1010 DATA 0530480320660820750610850830 

8204 006 5 06 808204 00 3410416900013307 7104 

10420100024 0007169112133016 

1020 DATA 1410142100960340410440490410 

5808206908408508207803215505305305104 8 

032076049036061034000014028 

1030 DATA 0300140481081140600761120600 

1424623001201200003415505305305204 8032 

0760500 360610 3400 0014 028030 

1040 DATA 0140401241182222222200620550 

99099195195000034155053053052053032082 

04 903 6061034 00011205 6120112 

1050 DATA 0120540788600500140601121111 

0304 804 8 00 0034155053053053048032082050 

036061034000112056120112012 

1060 DATA 0621181231230591242361981981 

95195000034155053053053053032066076036 

061034 000000060126221201255 

1070 DATA 2551260600000000341550530530 

54 04 8032066082036061034 000000060126187 

14 725 5255126066000000034155 

1088 DATA 0530530540530320720360610340 

0 006012625125225512706 303100 0 034058082 

86 90 84 085 0828 7803215504 904 9 

1090 DATA 0480480488320680730770320688 

7687 303604 00530530410580 6 8076 073036061 

034 072173000001238000001141 

1100 DATA 0102122010002080071690411410 

2220 6104 0642 010012080071690391410222 0 8 

10406416 900014100000116 9190 

1110 DATA 1410341550490490460490480320 

6807607303604 0052049041061034 022208173 

02 00 0 0141024208169832141026 

1120 DATA 2081040640340580828690840850 

82078 83215505004 804 804 8054 0 32 06703 604 0 

04 9044 054 051041061034 001251 

1130 DATA 2551912552512552232540021291 

ANTIC SOFTWARE LIBRARY 



HU 
TX 

KZ 



9312 725523925525424 7683223223223086251 

251251668664 060600088225243 UD 

1140 DATA 2552552556852582422261951341 

42158191886127663666638614 83106312 7667 

24624 866666883663861514 3834 YEJ 

1156 DATA 1550500480480480550320670360 

4005405204404 9050054 6418616348080786.14 

83886 8668196255127869135887 hP 

1168 DATA 8156158381262522480100000481 

6823011522 711986281186821812710 7195102 



162195612868 6 626 99242164 224 

1178 DATA 1238548136862481161951638511 

23222632868 832 64 86 5 6866 05 6 64 88 32 6 3415 5 

85 864 8 84 8 84 9046 8 328 7 76 7 96 86 

1188 DATA 0610650686826486341641841332 

4116413324 8104133213184133212184133239 

18413 3238166 86817 724 614 5212 

1196 DATA 2302122686822362132362462686 

62238241198238268234198239616236696834 

841155 



Customizing your Atari 



Operating System Device Handlers 



Don't type the 
TYPO II Codes! 



LISTING 1 



Article on page 9 



00 

CE 
01 
XG 
YU 

BZ 
HI 
KH 
MU 

XN 

NO 

AP 
FJ 



188 REM NULL HANDLER INSTALLATION 

118 REM BY BOB MARTIN 

126 REM <CJ 1989, ANTIC PUBLISHING INC 

158 RESTORE : TRAP 178 : ADDR=1536 

166 READ A:P0KE ADDR , A :ADDR=ADDR+1 ' GOT 
0 168 

178 TRAP 188 : XXX=U5R C1536J 

188 ? :? "N: HANDLER INST ALLED !'•: END 

196 DATA 164,162,8,189,26 

286 DATA 3,248,7,232,232,232,288,246,2 
48,242 

218 DATA 169,78,157,26,3,169,31,157,27 
,3 

228 DATA 169,6,157,28,3,96,43,6,43,6 

238 DATA 43,6,43,6,43,6,76,44,6,169 

248 DATA 1,168,96,226,2,227,2,8,6 



LISTING 2 



6180 
6116 
8120 
6136 
8148 
8156 
6166 
8176 
6186 
8268 
6216 
6228 
0230 
8246 
8258 
6266 
8278 
8288 
8298 
6366 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0388 
6396 
6488 
8416 
8428 
8438 
8448 
6458 
8466 
6478 
6486 
6496 
0566 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0586 



; ADD A NULL HANDLER 
; BY BOB MARTIN 

; c c >1989, ANTIC PUBLISHING INC 

HATABS = S831A 

*= $8688 

; INSERT THE N « DEUICE IN HATABS 
; LOOK FOR EMPTY SPOT IN HATABS 

INSERT 

LDX »6 
NEXTPLACE 

LDA HATABS, X 

BEQ ESPOT 

INX 

INX 

INX 

BNE NEXTPLACE 
BEQ INSERT 

; FOUND AN EMPYT SPOT 

ESPOT 

LDA tt'N 

STA HATABS, X 

LDA ttNULLT&$FF 

STA HATABS+1,X 

LDA «NULLT'S8188 

STA HATABS+2,X 

RT5 

; HANDLER TABLE 

NULLT 

. WORD NULL-1 

•WORD NULL-1 

.WORD NULL-1 

.WORD NULL-1 

.WORD NULL-1 
JMP NULL 

; NULL HANDLER 



NULL 



8596 
0686 
8616 
0626 
8636 
0646 
6658 



RTS 

RUN INITIALIZATION STEP 

*= S82E2 
. WORD INSERT 
. END 



LISTING 3 



JW 

71 
AD 
NG 

E5 



UZ 
JI 
DM 
RA 

05 

IK 
KC 
KW 
JH 

XQ 

UF 
LE 

RN 
MW 

ER 
5C 
TD 

Th 

JL 

NX 

OF 

HU 

SU 

UM 

CX 

XU 

WB 

SF 

WN 

WP 



LDA **1 
TAY 



JUNE 1989 



16 REM MODIFIED PRINTER HANDLER 

26 REM BOB MARTIN & MARTIN MERCORELLI 

36 REM cc>1989, ANTIC PUBLISHING INC 

35 DIM AS c28> , PRG$ c488> ,FN$ c20> 

46 GRAPHICS 8:? :? What type of P 

rinter":? :? :? :? ,"1 - Epson":? , ««2 

- C Itoh ProHriter" 

56 ? ,"3 - Other":? :INPUT PR:C=8 
66 UP5IDE=6 

78 IF PR=3 THEN GOSUB 2886 

98 POKE 752,1:? Working 
•* 

186 READ B:C=C+l:IF B<>-1 THEN PRG$ cC 
CJ=CHR$ CB> :GOTO 188 

286 DATA 255,255,8,6,98,6,6,8,6,6 

218 DATA 8,8,0,6,8,6,8,8,8,6 

226 DATA 6,0,76,16,6,162,6,189,26,3 

236 DATA 281,86,248,5,232,232,232,268, 
244, 189 

248 DATA 27,3,133,285,189,28,3,133,286 
, 169 

256 DATA 8,157,27,3,169,6,157,28,3,160 

268 DATA 15,177,285,153,8,6,136,16,248 
,24 

276 DATA 173,6,6,165,1,141,17,6,173,7 

288 DATA 6,165,6,141,18,6,169,43,141,6 

296 DATA 6,169,6,141,7,6,96,226,2,227 

368 DATA 2,19,6,19,6,229,6,173,186,6 

316 DATA 172,187,6,174,188,6,32,16,6,1 
52 

328 DATA 48,7,142,189,6,148,196,6,96,1 
64 

338 DATA 184,96,141,186,6,148,187,6,14 
2,188 

348 DATA 6,174,255,6,248,21,174,254,6, 
288 

356 DATA 4,281,155,246,12,281,96,246,1 

2,261 

366 DATA 32,144,8,281,123,176,4,32,19, 
6 

378 DATA 96,162,8,142,185,6,189,225,6, 

32 

388 DATA 22,6,174,185,6,232,236,229,6, 
144 

396 DATA 238,173,186,6,32,165,6,133,26 
4, 169 

488 DATA 6,133,285,133,286,162,2,24,38 
, 284 

418 DATA 38,285,262,16,248,24,169,224, 
181,265 

428 DATA 133,265,162,128,142,185,6,32, 
191,6 

436 DATA 32,22,6,169,8,133,286,78,185, 
6 

446 DATA 174,185,6,288,238,174,189,6,1 
72,198 

continued on next page 
31 



1 T 
J 1 


^ca DATA fi 1 CO QC A 1 i 97 OQ1 QC 1 7(1 i "7 


8458 


;MQUE P: 


HANDLER TABLE TO NEW 




, Z U 1 


8468 


; LOCATION 


U v 
N A 


/I C ft ft A T A 7Q 4 A A CL t: C 977 "30 IZ fi 1 9 fi "7 9 


84 8 8 


PFND 






«t 


84 9 8 


LDA 


LI A T ft [) C 4 1 V 

HHTHD3+1 , A 


11 1 

U J 


a ~y a n n T 1*1 1 ac c /i qc o q a ft ft a 1 fi 9 


8 5 8 8 


5T A 


ZP AGE1 


r u 


AO,a AATA 1 1*7*7 9 ft "7 1 Afl "7 1 "3 ft 49 9ft4 94 
4 O U UHIH l,loo,ZUo,lOU, r , loO,«tT7,ZU*t,Z*t 


8 518 


LDA 






C4 fi 


8528 


ST A 


ZP AGE1+1 


F V 

r t 


ago n at d ice 907 -c oaf; 1*7*7 onfi . 90*7 . 1 


8538 


LDA 


«*iki n t □ i o ez t t 

**NHTUL*Sr r 




*7 fi 1 fi 


8 54 8 


ST A 


hat >v n r™ ■ a\ V 

H AT AB5+1 , X 


UP 

H Li 


qoa hflf a 9XQ ice: one 44 1 ft fi fi 1 fi . d . 7 "7 - 
O U U UHIH ZH0,X00,ZW0,HH,XOO,O,X%J,*t,rOj> 


8 5 5 8 


LDA 


•»nptbl'$8188 




9fifi 1*7*7 9ftfi q c 

ZOO, loo, Z U Q / /O 


ft fi fi ft 

rJ o o o 


STA 


HATABS+2, X 


1 K 


OlU UHIH Zr,rO,o,U,4, X 


ft fi 7 ft 
o o < u 


LDY 


I*1S 


7 T 


4 aflO TF Dpo9 THFM 1 1 ft ft : Q F M P TTflH 
lUUu lr r re > * Z I 11 l vi 1 1 a W • K l II l* • X I u n 


ft fi ft ft 

17 O O t7 


PMULP 




D II 
H U 


1 ft 1 ft DDI'< r1 HA 1 ft fi "» — PUQ$ f971 ) 'PDRfiClflA 
1 tJ 1 U rnb?il']OililO'-bnnv'>£oxJ •"rWo'^xoo, 


ft fi Q ft 


LDA 


CZPAGED , Y 




1 ft ft 'v — punt rO"71 •% 


ft tv: ft ft 
W o W W 


STA 


NPTBL, Y 


Mil 
N U 


-I ft O ft r9d1 9ftn - f 1 9ft1 • P f) fl 5 f 9 Q V 


ft fi 1 ft 


DEY 






0 Q "> •> — |*UD< r "7 ft t 


ft fi 9 ft 


BPL 


PMULP 


Mil 

n v 


1 ft *? ft DDP<r*71C 71Q-t-ii(;QflCtQ'* l DDf!$r79Q "7 9 


ft fi "7 ft 

U Q O tJ 








ft ■» - punt rCt 


ft fid ft 
t7 O H C7 


;ST0RE OLD PUT BYTE ADDRESS THEN 


n 1 
R J 


1 -f ft ft TC DD^\*7 TUFM lOftft'PFM flTUFD 
Hut) 1 r r K n 7 0 I M L. N • Ktrl UlnHK 


ft fi fi ft 
KJ o o u 


; CHANGE PUT BYTE ADDRESS TO 


J 11 


111ft DDP^rlftfl 1 ft •» — rMIIMmni 'DDR^rl 


ft fi fi ft 
o o o o 


; POINT 


TO MODIFIED PUT BYTE 




a 0 i 0 ci 1 —PUD*; ruiiMrnni 
OO, 1 0 O 7 - LHK? (NUrlLUU' 


ft fi 7 ft 
DO 1 O 


; ROUTINE 


1 b 


1 1 "7 ft T "C IIDCTHF TUFM UDK< r9R1 9H11-rHU<; 


ft fi Q ft 


CLC 






r 1 9 ft 1 • r9Q7 9Q7i -THUS f 7Hl 


ft 7 PI ft 


LDA 


NPTBLPC 


D M 
Km 


1 1 *7 ft DOP5 r7l d 71 7 + milMT) - AS 


ft 7 1 ft 


ADC 


ul 


If n 


1 9 ft ft F M S — 1*1 • F P fi fl M FYF" • TF PR — 9 THFN FN 
izoo r n ^ — u ■ tr juh • cal • ir r r* — z i ntn rn 


8728 


STA 


OLDPNT+1 




^ — u ■ ill 1 un • cal 


87 38 


LDA 


NPTBLPC+1 


fl fi 


191ft TF PD-7 THFM F N S — 1*1 : fl T H F R FYF" 
1 z 1 u ir v w — 0 inc.ro r ro ^ — u • u 1 ntn • l al 


ft 74 ft 


ADC 


»8 


II T 

U X 


199 PI 9 ••Rl«« : 9 : 9 :9 •• PrPA+inq » • F'NS 
X Z Z U . mi • : • : ■ : Ul call lla # r 11 


ft 7 fi ft 


STA 


OLDPNT+2 


O If 


197a PlflfiF ±t1:flPFM ±± 1 ft ft FWS : 7 ttl'PRR 


ft 7 fi ft 


LDA 


»ENPUTCH-i:i&$FF 




( 1 • PI dCF mi • DOI/'f 7C9 Q 
? » ■ LLUDl *»1 « fr U K£ r 3Z# U 


ft 9 9 ft 


STA 


NPTBLPC 


1 H 


1 o/i n 0 >o • o nnuF 1 

I44H r • f • f , UUNt : 


ft 7 ft ft 


LDA 


»CNPUTCH-13 /S8188 


II T 

n 1 


4 9ITQ TF D D / \ ~-l TUFM Idftft 


ft 9 Q ft 


STA 


NPTBLPC+1 


n i 
U L 


lZot) f »r N IJ 1 t • It this handier Pr 


ft ft ft ft 

w o w u 


RTS 






i nt s characters upside down," 


ft ft 1 ft 
U O 1 u 






D T 

r 1 


lZr U r C han9G llflc 0 U TO • • f 


ft ft 9 ft 


MS 


582E2 


I) F 


19ft ft 9 "fift IIPfiTITiF — 1 : 9 
1 Z. O tJ f , O U U r J X U C. — -X • f 


ft ft *7 ft 


•WORD INSERT 


fl i 
U I 


1 9 Qfl 0 ■• T u p n OHM + K -i er d i' n a r ^ m 3 q ^ i n . 


8 8 5 8 










ft ft fi ft 


MODIFIED PRINTER HANDLER 


F Y 
L A 


1 fi pi ft Fun 


ft ft 7 ft 






v n 

A IS 


O ft ft ft 9 •*!Ki**:9 :9 : 9 '* Tuna in thP rn 


ft ft ft ft 


; INTERCEPTS THE PRINTER HANDLER 




Hoc + n dii1-":9 ( 'VnilR or i n -t- f> r* i n + n qpAPh 

C J t_ _3 L U r U L • f D U U l\ ¥ 1 All L C 1 1 II I U 31 ur II 


88 98 


; AND SENDS UNPRINTABLE 




ics node" 


8 9 8 8 


; CHARACTERS AS DOT GRAPHICS 


fl 7 

u c 


9 ft 1 ft 9 :9 *' rVnii r ^ n find tk i c; ; n f n r M 
Z U 1 u i • i *> T U U fLCIII T 1 HO in 1 D 1 II 1 Ul n 


8 918 


; OTHER 


CHARACTERS ARE SENT AS 




ja+inr» ,,,/ 7 1 • ■• r» unup Dr i n-f or Manila 11" 
ax 1 Oil • f 111 SrUUI rl llllcl n a II U a JL -* 


ft 99ft 

o 7Z O 


; NORMAL MODE CHARACTERS 


P u 


9 ft O ft 9 *9 •* Tuna in + k b HoriMAl rrirlPC 
Zu/u . »f 1 yPc 111 Trie QcL ina 1 L 


ft 9 4 ft 
0740 








n r» a r» -«- => + ; MQ t n J i.i ^ * K — 1 *• ! PflltfF "7 fi 

one a x a Tine* cna wixn x • r u is. c < o 


ft Q fi ft 
O ✓ O u 


;PQKE 1791 c$6FF* WITH A "8" 




9 1 
*C # X 


ft 9 fi ft 


; TO ENABLE. ANY OTHER UALUE 


M If 


9 ft "3 ft 9 : 9 ••FYOMPI F : : 9 : 9 ••997»»:9 •»97fi 
ZOoO r •*: L AHIIrLC • •! • • i tC f ' i f i w 


ft Q 7 ft 
t)7 fO 


; WILL DISABLE THIS OPTION. 




■• : 9 •»9ft» , :9 ,, 9PI» , :9 ••9-1* , :9 :9 :9 CP 


ft 9 ft ft 
O 7 O u 








race + K o fiPOPFROO -t-n K p> a i n "i ■ * ■ 
1 c 3 b Intf jrHbLUHr. XU DCS 1 II' , 


ft 9 9 ft 

O ✓ 7 tl 




INSERT 


u El 


9ft4ft PHIrfF 9fi4 9fifi 
*cUfU rUIS.L rO s t,*cOO 


18 8 8 






H A 


9ftfift TF P F F Iff f 9 fid ■» «r !> "7 "7 THFM 9 ft fi ft 


1818 


;JUMP TO OLD PRINTER PUT BYTE 


HP 


2868 POKE 764,255'POKE 752 , 8 i C00NT=8 x ? 


1828 








: ? 


1838 


PNTPUT 




CO 


2878 INPUT Q:IF Q<8 THEN 2898 


1 ft 4 ft 


LDA 


HA 


AH 


2888 COUNT =C0UNT+1 : fl$ cCOUNT , COUNT! =CHR 


1858 


PNTPUT2 






$ CQ) : GOTO 2878 


18 6 8 


LDY 


HY 


ZR 


2898 NUMC0D=224+C0UNT 


1878 


LDX 


HX 


AC 


2188 RETURN 


1888 


J5R 


OLDPNT 


LISTING 4 


1898 
1188 
1118 


TYA 
Bill 
5TX 


ERROR 
RX 


eiee i modified printer handler 


1128 


STY 


RY 


8182 ; BY BOB MARTIN 


1138 


RTS 




8184 ; ccU989, ANTIC PUBLISHING 


114 8 


ERROR 




8118 INITIALIZATION ROUTINE FOR 


1158 


PLA 




8128 ; SPECIAL PRINTER HANDLER 


1168 


PLA 




8148 HATABS = S831A 


117 8 


RTS 




8158 ZPAGE1 = $CD 


1188 






8168 ; 


1 1 9R 

X X 7 O 


; MODIFIED PRINTER PUT BYTE 


0178 *= $8688 


19 1ft 
1 Z 1 u 


NPUTCH 




8198 ; PRINTER HANDLER TABLE 


1 *7 *7 ft 


STA 


HA ;CK FOR 


8218 NPTBL 


«J O "2 ft 

lz o U 


STY 


HY ; UNPRINTABLE 


8228 . NORD 8,8,8 


124 8 


STX 


HX ; CHARACTERS 


8238 NPTBLPC 


« 9CO 


LDX 


S86FF 


8248 .UURD 8,8,6,8,8 


1 O C ft 


BEQ 


PNTOK 


8268 ;OLD PRINTER PUT BYTE 


1 O "7 ft 


LDX 


S86FE 


8288 OLDPNT 


1 '7 ft ft 
1 Z O U 


BNE 


CRGR 


8298 JMP OLDPNT 


1 o a ft 


CMP 


«155 


8388 ; 


1 "3 a a 


BEQ 


PNTOK 


8328 INITIALIZE NEW PRINTER HANDLER 


1 "3 1 ft 

1 o 1 U 


CRGR 




8348 INSERT 


1 74 C 

1 O 1 v> 


CMP 


»96 


8358 LDX «0 : FIND P: HANDLER 


1 *7 9 ft 


BEQ 


NOPNT 


8368 PLOOP 


1 *7 *7 ft 
loot) 


CMP 


«32 


8378 LDA HATABS, X 


134 8 


BCC 


NOPNT 


8388 CMP «*P 


1358 


CMP 


«123 


8398 BEQ PFND 


1368 


BCS 


NOPNT 


8488 INX 


1378 


PNTOK 




8418 INX 


1388 


JSR 


PNTPUT 


8428 INX 


1398 


RTS 




8438 BNE PLOOP 


1488 






8448 ; 


1418 


; HANDLER FOR UNPRINTABLE 
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ANTIC SOFTWARE LIBRARY 



1 a i a 


; CHARACTERS 




2836 


CLC 




A A ~2 Q 


* 






284 6 


ADC 


«64 


4 A A Ck 


NO PNT 






2858 


OUT 






LDX 


»8 




2868 


RTS 




1466 


GRLOOP 






2 8 76 


HBIT 




1478 


ST X 


HBIT 




2875 


.BYTE 8 


A A Q C\ 

1*1 o U 


LD A 


GRCODE , X 




2886 


HA .BYTE 0 


A A Q C* 

14 7 U 


J5R 


PNTPUT2 




2696 


HY .BYTE 0 


1 b a U 


LDX 


HBIT 




2166 


HX .BYTE 0 


1516 


INX 






2118 


RX .BYTE 0 




CPX 


CODELN 




2126 


RY .BYTE 0 


1536 


BCC 


GRLOOP 




2138 






loot) 


* 




2146 


^•CALCULATES THE UERTIC AL - B YTE 


4 tea 


LD A 


HA ; 


U EL 1 III 1 LnliHL 




; FROM THE CHARACTER FONT 


1576 


JSR 


A 5 C 2 5 C N ; 


LUUt ** HNU 


jL J. O tJ 






loot) 


ST A 


5 C C ; 


UHLU H U U n 


2176 


; ADDRESS 


OF CHARACTER 


1 C Q ft 


L U ft 


*»t) , 


OF FONT 


2186 


; IN $CC 


& ZPAGE1 


1666 


ST A 


ZPAGE1 




2198 






1 A 1 A 
X O X o 


ST A 


ZP AbEl+1 




2286 


;BIT TO 


BE SENT TO PRINTER 


4COQ 


LDX 


U2 




2218 


; IN X REGISTER 


1 A "3 U 
loot) 


ALOOP 






2226 






ID JO 


CLC 






22 3 6 


; RESULTING "SLICED" BYTE IS 


t CA CH 
1 D*f W 


ROL 


$CC 




224 6 


; RETURNED IN A AND HELD IN 


16 5 6 


ROL 


ZPAGE1 




£. £. O U 


; «CE 




1666 


DEX 






9 9 O 






1676 


BPL 


ALOOP 




9 9 7 PI 

4b £. f KJ 


SLICE 




1686 


CLC 




99ftPI 

4& 4& O U 


LD A 


»S01 jCITOH LDA »S80 


A C Q Ck 


LD A 


«$E8 




229 6 


STA 


$CB 


i "7 C* 


ADC 


ZP AGE1 




2 3 6 6 


LD Y 


«$07 


lrlU 


ST A 


ZP AGE1 




2 316 


LOOP 




1 ~j "? n 

1 r o U 








2326 


TXA 




A "J A (A 

1 r *t 13 


LDX 


tt$ 8 6 ; 


TALC THE 8 

U M L u 1 II L U 


2 3 3 6 


AND 


CSCCJ , Y 


If 5M 


ST X 


HBIT ; 


BYTES 


2 34 6 


BEQ 


NOTSET 


i "7 <z a 


BLUUP 






9 pi 


LD A 


SCB 


1 f f U 


JSR 


SLICE 




9 ^ fi PI 


ORA 


ZPAGE1+1 


1 7 Q & 

1 r o tJ 


JSR 


PNTP0T2 




9 "2 7 PI 


STA 


ZPAGE1+1 


A 7 Q ft 


LD A 


«6 




9 "2 ft PI 
4C 0 O U 


NOTSET 




1866 


ST A 


ZPAGE1+1 




Q7QQ 
Z O 7 t) 


ASL 


SCB ;CITOH LSR $CB 


1816 


L5R 


HBIT 




9 4 n H 


DEY 




1 £4 7 U 


LDX 


HBIT 




9d 1 PI 


BPL 


LOOP 


18 3 6 


BNE 


BLOOP 




9 4 9 PI 


LD A 


ZPAGE1+1 


184 8 


LDX 


RX 




*~> A ~~1 C\ 
Z*l 0 w 


BIT 


HA ;CK FOR INUID 


1 (i r ft 

loot) 


LD Y 


RY 




9*1 4 PI 

4t *t *f O 


BPL 


NOTINU 


* Q C D 

loot) 


TYA 






4C *f O O 


EOR 


ttSFF 


1 Q7tl 

1 o / o 


RTS 






94 A PI 
JL *t O U 


STA 


ZPAGE1+1 


< a a q 
loot) 








24 7 8 


NOTINU 




I07U 


;C0NUERT ASCII TO 


n r q p 1 A v 

U X J r l_ H I 


24 8 6 


RTS 




1 o q a 
x 7 U tJ 


; MEMORY UALUE 




94 9 PI 






l7lB 








2 5 6 6 


;PUT THE 


CONTROL CODE TO CAUSE 


A Q 7 O 

1 7 4t U 


ASC2SCN 






j£ O X O 


; YOUR PRINTER TO ACCEPT 8 


19 3 8 


AND 


»$7F 




9 9 pi 


; DOT GRAPHICS BYTES HERE 


4 ci/i a 

1 7*1 U 


CMP 


**96 




9 *% "3 a 

z. O 0 tJ 






19 5 8 


BCS 


OUT 




2546 


; C . ITOH 


CONTROL CODE 


1968 


CMP 


»32 




2556 


; GRCODE 


.BYTE 27, "50008" 


1978 


BCC 


GRCHR 




2566 






1988 


SEC 






2576 


GRCODE . 


BYTE 27,76,8,0 


1998 


SBC 


»32 




2588 






2668 


SEC 






2596 


CODELN . 


BYTE CODELN-GRCODE 


2818 


BCS 


OUT 




2668 






2628 


GRCHR 






2616 


.END 



Total control over your settings 



AUTORUN Selector 



Article on page 7 



LISTING 1 



Don't type the, 
TYPO II Codes! 



UN 
XM 
AD 
TP 
UX 
YN 

PP 

5U 
CJ 

HX 
OR 



BU 



10 REM AUTORUN SELECTOR 

20 REM BY JASON STRAUTMAN'C JACKSON 
30 REM CCJ1989, ANTIC PUBLISHING INC 
40 DIM ASC37) 

50 ? "KlWMChecking Data ...": TRAP 130 

60 FOR 1=1 TO 3 7 : READ BYTE : TOTAL=TOTAL 

+ BYTE*I : A$ cl, Ii=CHR$ cBYTEJ s NE X T I 

70 IF T0TALO54579 THEN POKE 195,0:GOT 

0 130 

86 TRAP 96 

96 ? "^Creating ... SELECT . EXE" : CLOSE »1 
:QPEN «1,8,0,"D:SELECT.EXE":? «1;A$; 
100 CLOSE »l:END 

110 DATA 255,255,8,128,24,128,165,10,1 
41, 21, 128, 165, 11, 141, 22, 12 8, 173, 31, 208 
,41 

120 DATA 2,268,3,168,21,128,96,8,6,6,8 
,226,2,227,2,8,128 



FI 
DB 
PU 



138 IF PEEKC195J=0 THEN ? 

error in the da t a ! ! " : END 
140 IF PEEKC195>=6 THEN ? 



'There is an 
■Missing Dat 



150 



END 
? "Error 



1 ; PEEKC195J 



LISTING 2 



0100 
0110 
0120 



;AUTORUN PICKER 
;BY J . STRAUTMAN'C . JACKSON 
;cc*1989, ANTIC PUBLISHING INC 
0130 CONSOL = SD01F .Console keys 
0140 D05UEC = S 0 A ;Load DUP . SYS 

0150 *= $8000 

0160 START 



0170 



LDA D05UEC ; Grab current 
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continued on next page 
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0180 5TA UECTOR ;D05 vector 

0190 LDA DOSUEC+1 

0200 ST A UECTOR+1 

0210 LDA CONSOL ;CONSOL Key 

0220 AND »$02 ;IS it SELECT? 

0230 BNE CONT 

0240 JMP (UECT0R3 ; Load DUP.5Y5 



0250 CONT RT5 ; Load AUTORUN 

0260 UECTOR 

0270 .WORD 0,0 

0280 *= S02E2 

0290 .WORD START 

0300 .END 



Fast multi-file text finder 

Locator 



Article on page 5 



LISTING 1 



Don't type the 
TYPO II Codes! 



DZ 
JR 
AD 
CH 



KI 
RO 

EM 



US 
MA 
GU 



RN 
OA 

X J 

AT 

E5 

RN 
BO 



KE 

GN 

5E 
F J 
RR 
PO 
CD 

CI 

OZ 
PL 
DR 

MP 
NB 
SO 
XC 
UU 



ZN 

OT 

OA 
PR 

SX 

NY 
ZH 
OA 

BC 
UU 

JP 

FK 

34 



10 REM LOCATOR 

20 REM JEFFREY A. 50MMER5 , MD 

30 REM cc>1989, ANTIC PUBLISHING INC 

100 DIM FN$ (203 , FN15 (203 , MASKS (203 , SEA 

RCHS (5 03 , 14INSTR5 (14 33,CA5ES(13,B0FR$(1 

0000) 

109 GOSUB 10000 : FOOND=0 

110 CLOSE «l:OPEN «1 , 12 , 0 , "E : " : POKE 71 
0, 18 

120 DLI5T=PEEK(5603 +256*PEEK(5613 ■ POKE 
DLI5T+3, 71 : POKE DLIST+6,6:? " LOCA 

tor raraBfiHHmmmmras - 1 

130 POSITION 7,7:? "Files to search: •• 
; : INPOT «1, MASKS 

140 POSITION 7,9:? "String to search f 
or: ";:INPUT ttl, SEARCH* 

150 POSITION 7,12:? "Case sensitive cY 

'N3 : ";:INPOT «1,CASE$:IF CA5E$<>"Y" A 

ND CA5E$<>"N" THEN 150 

160 IF MASK$="" THEN MA5K$="D « * . *" 

165 PTR=U5R(ADR(UINSTR$3 , ADR(MASK$3 . LE 

N(MASK$3 , ADR ( 3 ,1,23 

170 SLEN=LEN(SEARCH$3 : UINSTR= ADR (UINST 
R$3 : BUFR=ADR(BUFR$3 : BUFRS (100003 =" " 
180 SEARCH=ADR(SEARCH$3 

200 TRAP 1000:FPTR=l:GRAPHICS 0:POKE 7 
10, 18 

210 CLOSE »2:0PEN »2, 7,0, MASKS 

220 TRAP 600:FOR 1=1 TO FPTR:INPUT «*2, 

FN* 'NEXT I:FN1$=MA5K*(1,PTR> :FN1$(PTR+ 

13=FN$(3,103 : FPTR=FPTR+1 : CLOSE »2 

230 FOR I=LEN(FN1$3 TO 1 STEP -HIF FN 

1$(I,I3<>«' " THEN POP :GOTO 240 

235 NEXT I 

24 0 FN1$ (1 + 13 =".": FN1* (1 + 23 = FN$ C 11, 133 

250 CLOSE «3:0PEN »3,4,0,FN1$ 

260 ? "CHECKING ";FN1$ 

300 FI.EN = USR(INP, 3, BUFR, 100003 

310 IF CA5E$<>"Y" THEN D=OSR CMAKE OP , BU 

FR, FLEN3 

320 P=USR(UIN5TR, BUFR, FLEN, SEARCH, 5LEN 
, 13 

330 IF POO THEN 400 

340 IF FLENO10000 THEN 500 

350 BUFRSC13=BOFR$C99003 : BUFR* C100003 = 

i* 

36 0 F LEN = U5R clNP , 3 , BUFR + 10 0 , 99003 +10 0 
370 GOTO 310 

400 BEGIN = P - 18 : IF BEGIN < 1 THEN BEGIN = 1 
410 ENN = P + 19:IF ENN > F LEN THEN ENN = FL EN 
415 ? "Found in file ";FN1$;" « 
FOR I = B E G I N TO ENN:? CHR$(27) ; BUFR* (I , 
13 ; : NEXT I:FOOND=l 

420 POKE 752,1:? :? ••fiiext file T=lx i t Wo 
nt inue" « POKE 752 , 0 

430 CLOSE «5:0PEN »5 , 4 , 0 , " K : " : GET »5 , X 
:CLOSE «5:IF X=78 THEN 500 
440 IF X=69 THEN 600 
450 IF X<>67 THEN 430 

4 60 P = OSR (UIN5TR, BOFR, FLEN, SEARCH, 5L EN 
, P + 13 

470 GOTO 330 

500 CLOSE «3:G0T0 210 

600 IF NOT FOOND THEN ? :? "Not Found 
610 ? "Done. "'END 

1000 ? :? "Illegal directory nane":GOT 
0 2000 

2000 FOR 1=1 TO 700:NEXT I:CLOSE «1 : CL 
05E »2:G0T0 110 

10000 INP = ADR c*'hhhklUKBaaSE9B^hDEfflhaD^iha 



TM 
XO 
AX 
DN 

LISTING 2 



if hOHPi umBHfflanBiF!nmi£"3 
10010 WIN5TRS ci , 713 ="hhn[!ihmuhcimhanhnnh 
n»iihhnrahnshno8eaQH[HnoEa^HwamwBneLiinraEap]e[!inn 
fflEaLiieDamEatiiemaraMtwH" 

10020 wiN5TR$ c72, i433=»mmwra mmraHmHm 8 raw 
7i\mmsm i teaman i mansss" 

10030 MAKEUP = ADR ("hhnmhnfihnf! hmiJHii*elliSlH 

HmeiiiaHMuniiaft^^ 
an nu*KD"3 

10040 RETURN 



RY 
JR 
GD 

SK 

EU 

IJ 
PR 

UU 

RD 

PY 

TH 
UB 

MY 
KB 
PU 

LU 

BQ 

YC 

DM 
BK 
MM 



CM 

UQ 

AR 
PU 
AL 

KD 
EU 

KT 

Q5 

FP 

QT 



TIC 
120 



10 REM LOCATOR, LISTING 2 

20 REM JEFFREY A. S0MMER5, MD 

30 REM c C 3 1985,1988 ANTIC POBLISH1NG 

35 REM (CREATES LINES 10000-10030 FOR 

LISTING 1, LOCATE. BA53 

40 REM (LINES 10-250 MAY BE USED WITH 
OTHER BASIC LOADERS IN THIS ISSUE. 
50 REM CHANGE LINE 70 AS NECESSARY. 3 
60 DIM FN$ (203 , TEMP5 (203 , AR$ C933 : DPL=P 
EEK(105923 : POKE 10592,255 

70 FN$="D:LINES.LST":REM THIS IS THE N 

AME OF THE DISK FILE TO BE CREATED 

80 ? "«[i]isK or THassette?"; : POKE 764,25 

5 

90 IF NOT (PEEK(7643=18 OR PEEK(7643= 
583 THEN 90 

100 IF PEEK(7643=18 THEN FN$="C: 
110 POKE 764,255:GRAPHIC5 0:? " 
S GENERIC BASIC LOADER" 
? ,"BY CHARLES JACKSON" 
130 POKE 10592, DPL : TRAP 200 
140 ? :? :? "Creating ";FN$:? ". 
se stand by." 

150 RESTORE : READ LN : LM=LN : DIM A$(LN3: 

C = l 

160 AR$="" : READ ARS 

170 FOR X = l TO LEN ( AR5 3 STEP 3:P0KE 75 
2, 255 

180 LM=LM-1 : POSITION 10,10:? "(Countdo 
wn . . . T-"; INT (LM'103 ; "3 

190 A$(C,C3=CHR$(UAL(AR$(X,X+2333:C=C+ 
l:NEXT X:GOTO 160 

200 IF PEEK(1953=5 THEN ? :? :? "L3TOO 
MANY DATA LINES!":? "CANNOT CREATE FIL 

E ! " : END 

210 IF C<LN+1 THEN ? :? "QTOO FEW DATA 

LINES!":? -CANNOT CREATE FILE ! " : END 
220 IF FN$="C:" THEN ? *? ■'■ Prepare ca 
ssette, press (RETURN!" 
230 OPEN «1,8,0,FN$ 
240 POKE 766,1:? »1;A$; 
250 CLOSE «l:GRAPHIC5 0 



AN 



plea 



POKE 766,0 

? "WtimtMansoBHM 



1000 DATA 339 

1010 DATA 0490480480480480320730780800 

610650 68 08204 0034104104104 010 010 010010 

170169007157 06600310415 7069 

1020 DATA 0031041570680031041570730031 

041570720030 3208622818 9072003133 21218 9 

0730 03133213 0 96034 04115504 9 

1030 DATA 0480480490480320870730780830 

84 08203604 004 9 04405504 90410610 34104104 

133215104133214104133225104 

1040 DATA 1332241041332171041332161041 

0413322610413323110413 32300561652302 33 

0011332301652312330 00133231 

1050 DATA 0241652301012141332321652311 

ANTIC SOFTWARE LIBRARY 



UF 
CH 
QS 



8121513323382416521410122413322816 5215 
18122513 322 9168 8 8 81770 34155 G5 
1060 DATA 0490480480500480320870730780 
8308408203604 005505004404 90520510410 61 
0 342 3220 921620 8 0 322 00196226 DE 
1070 DATA 2082451652320562292141332121 
65233229215133213165212024105001133212 
165213105000133213096165232 NB 
1080 DATA 1972282080131652331972292080 
07169000133212133213096165232024105001 



13 3232165233105 000133233024 

1090 DATA 1441810341550490480480510480 

3207706507506908508006106506808204 00 34 

104104133213104133212104133 

1100 DATA 2151041332141652120241012141 

3 321616521310121513 321716 0 00017 7212201 

0 97 016024165212024105 0 0113 3 

1110 DATA 2121652131050001332131972172 

0 823 31652121972162 0822 7096056233 03214 5 

212024144224034041155 



Print Shop Graphics that move 

Icon Animation System 



Article on page 15 



LISTING 1 



Don't type the 
TYPO II Codes! 



100 HEM ICON ANIMATION SYSTEM, 

LISTING 1, THE ANIMATOR 
103 REM BY JIM JOHNSON 

106 REM cc>1989 ANTIC PUBLISHING INC 

110 C0=0 : Cl=l : C2=2 : C3=3 : C4=4 : C5=5 : C6=6 

:C7=7:C8=8:C9=9:C2 0=20:MAX=C20*C5 

120 MODE=C6:OFF=40000:MAIT=10 

130 DIM FILENAMES c20> , KEY* cC3> 

148 DIM BS C128) f G$ c616> , G2$ c616*MAX> 

150 DIM SEQS C1013 , SCRIPTS €10*10) 

160 SRADR = ADR c h hariir 1 IhBtUP hil UB htafcJ? h hilMlh 

h^Ka h smpjB^i JJiaiF^insirvimawcimH^if inu*" > 
170 pict = adr c-hhniihd^hnffihaLiihhauihhQhhaa 
smnotiici mmwrn wata e i ja i aar inn waii j e mn umanu ihugw 
"i 

180 B$="»" :BSC128)=BS:B$CC2>=BS:BADR = A 
DRCB$» 

190 G$ = "Bft" :G$C616^=G$:GSCC2J=GS 

200 10CB = 8 32 + 16: ADRHI = INT cADRcG2*>'256 

y : ADRLO=ADR CG2$> -ADRHI*256 

260 G05UB 31000'TRAP OFF:GOSUB 1630 : PO 

5ITI0N C2,C3 

270 ? " fflBB" : ? " (Mill CREATE ANIMATIO 
N FILE":? fflBP.i- 

28 0 ? ■■ »Hh"i" s ? 1 
FILE" :? M fflBffl" 

29 0 ? " »Bffl M : ? 1 
FILE":? •• »£ffl" 
300 ? " WHfcJ":? ' 

I5BB " 

310 ? " WHSl" : ? 1 
: ? " WHP1" 
320 ? " ffiBSI":? ' 
WBFl" 

330 G05UB 1680 

34 0 0LDX=C5:0LDY=C4:CURX=QLDX:CURY=0LD 



II [II LOAD ANIMATION 

[11 Lll SAUE ANIMATION 

[II HI SEQUENCER":? 

d 01 UIEU ANIMATION* 

ffl Bl SCRIPTER":? " 



350 CLOSE »C1:0PEN »C1 , C4 , C0 , "K : " : GET 
»C1,KEY 

360 IF KEY=45 AND CURY>C4 THEN CURY=CU 
RYC3:G0T0 450 

370 IF KEY=61 AND CURY<19 THEN CURY=CU 
RY*C3:GUI0 450 

380 IF KLY=155 AND CURY=C4 THEN 470 
390 IF KEY=155 AND CURY=C7 THEN 1460 
400 IF 5EQ$="" THEN 440 

410 1 F KEY=155 AND CURY=10 THEN 1330 
420 IF KEY=155 AND CURY=13 THEN 1170 
430 IF KEY=15S AND CURY=16 THEN 960 
440 IF KEY=155 AND CURY=19 THEN TRAP 2 
60.RUN "D : SCRIPTER . BAS" 

450 POSITION OLDX , OLD Y : ? " "; POSITION 

CURX,CURY:? :OLDX = CURX:OLDY = CURY 

460 GOTO 350 

470 GOSUO 1630:GO5UB 1680 : POKE 752, CO 

480 ? :? " How nany pictures do you w 

ish to":? load cwax i mum=" ; MAX ; "J " ; : 

INPUT KE Y S : I F KEYS="" THEN 260 

490 FRAMES=UAL CKEY$> : SEO$="" : FOR I=C1 

TO FRAMES : SEflS cl , I* =CHR$ cl> :NEXT I : IF 

FRAMES > MAX THEN FRAME5 = MAX 

500 POKE 752, CI : POSITION C4,22:? "IN5E 

RT GRAPHICS DISK, PRESS raHHffliaiiJ" : CLOSE 

»Cl:OPEN »C1,C4,C0,"K:":GET »C1,KEY 

510 X=USRc5RADR,BADR,361,Cl,C3> 'IF B$ c 

C1,15>="PRINT SHOP:CLK!" THEN 530 

520 POSITION C7,C8:? rafflOHHraGGDBBHmmra 

■aWlflMrlfi *Q";:FOR I = C1 TO 300:NEXT I : GO 



xz 

Z J 

DO 
C5 
KU 

TN 



XZ 
Nl 

DX 

XR 

UK 

BL 
Ph 
SO 
MF 
UL 
ZU 
YJ 
ZT 

HT 

KJ 

DO 

5K 
XD 

II 
PQ 
FB 
IN 
UF 

EM 



JJ 

UZ 
KN 
DH 
UL 

SO 



FI 
AQ 
AJ 
UC 
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I TO 470 
530 GOSUB 1690 

540 L=ADRcG$> : 5CRMEM=PEEK c88> +PEEK c89> 

*256+C4+C4*20 

560 REM LOAD ICONS 

570 ICON=C0 

580 FOR 5ECTR1=362 TO 393 : X=USR cSRADR , 
BADR, SECTR1, CI, C3> 

590 FOR I=C0 TO 96 STEP 32 « REM If B$ cX 
+19, X+19> <>"X" And B$ cX+20, X+20> < >"x" 
Then Pop :Pop : Goto 570 
600 ICON=ICON+Cl 

610 5ECTR = ASC CB$ cl + 17, 1 + 17) > +25 6*A5C cfl 
S cl+18, 1+18) * 

620 FOR I2=C0 TO 378 STEP 126:X=U5Rc5R 
ADR,BADR,5ECTR,C1,C3> 

630 GS<I2+Cl,I2+126i=B$cCl,126*:SECTR= 
ASCcB$ci27,127>* +256*ASC cfl$ C128, 128>) : 
NE X T 12 

64 0 X-USRC5RADR,BADR,SECTR,C1,C3>:G$C5 
05, 572*=B$ CC1, 68* 

650 X - U5R cSRADR, BADR, SECTR1, CI, C3> 

660 X = U5R CPICT, 5CRMEM, L, 11, 52, C20» 

670 G2* cCl + 616*clC0N-CU>=G$ 

680 IF I C ON = F R AME S THEN 970 

690 NEXT l:NEXT 5ECTR1 

950 REM DISPLAY IMAGES 

960 GOSUB 1690 

970 L=ADRCGS> : SCRMEM=PEEK c88> +PEEK c89> 

*256+C4+C4*20 

980 FOR I = C1 TO LEN c 5E J 

990 IF A5CcSEQ$cl,I>J=C0 THEN GOSUB 15 
90:GOTO 1020 

1000 L=ADRcG2S> +616*cA5C cSEQS cl , I) J - CI 
* 

1010 X=U5RcPICT, SCRMEM, L, 11, 52, C20> 

1020 FOR DEL A Y=C1 TO WAIT : IF PEEKc764> 

<>255 THEN GOSUB 1060 

1025 NEXT DELAY : POKE 77, C0 

1030 IF PEEKC764) <>255 THEN GOSUB 1060 

1040 NEXT I 

1050 POKE 764,255:G0T0 980 
1060 CLOSE «Cl:OPEN »C1 , C4 , C0 , "K : " : GET 
»C1, KEY 

1070 IF KEY=155 AND CURX=C4 THEN WAIT= 
UAIT + Cl + C4*cUAIT>29>+C5*cUAIT>45:i +10** c 
UAIT>90> 

1080 IF KEY=155 AND CURX=11 THEN WAIT= 
WAIT-Cl-C4*cWAIT>30> - C5* CMAIT > 50* -10*c 
MAITM001 : IF UAIT<C0 THEN UAIT = C0 
1090 IF KEY=155 AND CURX=18 THEN PAUSE 
= NOT PAUSE 

1100 IF KEY=155 AND CURX=25 AND PAUSE 
THEN 1270 

1110 IF KEY=155 AND CURX=32 THEN POP : 
POP :GOTO 260 

1120 IF KEY=42 AND CURX<32 THEN CURX=C 
URX+C7:P0KE 657,0LDX:? " ";:POKE 657, C 
URX : ? "■"; :OLDX=CURX 

1130 IF KEY=43 AND CURX>C4 THEN CURX=C 

URX-C7:P0KE 657,0LDX:? " ";:POKE 657, C 

URX : ? "■"; :OLDX=CURX 

1140 IF PAUSE THEN 1060 

1150 RETURN 

1160 GOSUB 1060 

1170 REM SEQUENCER 

continued on next page 
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1180 GOSUB 1630-GOSUB 1680 

1190 ? :? "ENTER *0' TO PAUSE SEQUENCE AB 

1200 FRAME=C1:5EQ$="":? GG 

1210 ? "FRAME »" ; FRAME ; M : CICIUCl" ; 

1220 INPUT KEY$:IF KEY$="" AND SEQ$="" FU 

THEN 5EQ$=CHR$ (CD : GOTO 960 
1230 IF KEYS="" THEN FRAME=FR AME - CI : GO MS 
TO 960 

1240 KEY = UAL CKEY$> : IF KEY<C0 OR KEY > F R BF 
AMES THEN ? "□BR" ; : GOTO 1210 

1250 5EQS cFRAME* FRAME* =CHR5 cKE Y* PU 

1260 FR AME=FRAME+C1 : IF FRAME < 101 THEN 

1210 BL 

1265 FR AME = FRAME - CI : GOTO 960 HF 

1270 REM ADUANCE NX 

1280 I=I+Cl:IF I>LEN(5Ett$J THEN I=C1 

1290 IF A5CCSEQ$CI,IJJ=C0 THEN 1280 NU 

1300 L=ADR cG2$* +616* cASC cSEQS cl, H ) -CI CO 

> NQ 

1310 X=U5R(PICT, 5CRMEM, L, 11, 52, C20) 

1320 GOTO 1060 NK 

1325 REM SAME SEQUENCE FILE 

1330 GOSUB 1630:GOSUB 1680 : TRAP 3000 MI 

1340 POSITION C2,C3:? "USE FORMAT: 'DE 

U : FILENAME . EXT ' " RS 

1350 POKE 752, C0 : POSITION C2,C5:? "FIL 20 

ENAME TO 5 AUE?" ; ' POKE 764,255 

1360 ON PEEKC7641 =255 GOTO 1360:IF PEE 

K(764i=28 THEN CLOSE ftClsOPEN »C1,C4,C NC 

0,"K:":GET **C1 , KEY : GOTO 260 

1370 ? "89"; . INPUT FILENAMES : IF FILENAM AR 
£$ = ••'• THEN GOSUB 2320:GOTO 1350 OQ 
1380 CLOSE ttCl:OPEN «C1 , C8 , C0 , FILENAME 
S HA 
1390 5EQSCLENCSEQS1+C1>=CHRSCFRAME53 :? HY 

**C1 ; 5EQ$ 
1400 POKE I0CB+C2,11 

1410 POKE I0CB+C4, ADRLO : POKE I0CB+C5,A ZA 
DRHI 

1420 NM=616*FRAMES:NMHI=INTCNM'256> : NM JS 
L0=NM~NMHI*256 

1430 POKE I0CB+C8,NML0 : POKE I0CB+C9,NM 
HI 

1440 X = USRcADRc»hhhE3LUm"J ,16* 
1450 CLOSE t*Cl:SEQ$ = SEQScCl,LENcSEQ$> - 
CD : GOTO 260 ZR 
1455 REM LOAD SEQUENCE FILE 

1460 GOSUB 1630:GOSUD 1680:TRAP 3000 BO 
1470 POSITION C2,C3:? "USE FORMAT: • DE HM 
U : FILENAME .EXT'": SEQ$="" UU 
1480 POKE 752,C0:POSITION C2,C5:? »FIL 
ENAME TO LOAD?"; : POKE 764,255 KD 
1490 ON PEEKC764)=255 GOTO 1490:IF PEE 
K(764)=28 THEN CLOSE »C1 : OPEN »C1,C4,C EG 
0,"K:":GET »C1,KEY:G0T0 268 

1500 ? "ffl";:INPUT FILENAME* : IF FILENAM NT 

E*="m THEN GOSUB 2320:GOTO 1480 OC 

1510 CLOSE ttCHOPEN «C1 , C4 , C0 , FILENAME 

S YX 

1520 INPUT ttCl;SEQ$:FRAMES=A5Cc5EQScLE 

N(SEQ$) ,LEN(SEQSJ i) : 5EQS=5EQS c C 1 , LENCS 

EQS)-C1> HJ 

1530 POKE 10CB+C2,C7 XZ 

1540 POKE IQCB+C4, ADRLO : POKE I0CB+C5,A 

DRHI OC 

1550 NM=616*FRAME5:NMHI=INTcNM'256> : NM 

L0=NM~NMHI*256 TF 

1560 POKE I0CB+C8, NMLO : POKE I0CB+C9,NM 

HI II 

1570 X=U5RcADR("hhhnLUm"J ,16* 

1580 CLOSE **Cl:GOTO 960 QZ 
1590 REM PAUSE 

1600 FOR DEL A Y=C1 TO 100 UN 
1610 IF PEEKC764J <>255 THEN GOSUB 1060 
1620 NEXT DELAY : RETURN ME 
1630 REM TITLE SCREEN 

1640 GRAPHICS C0 : POKE 709,C0:POKE 710, CE 
C0:GOSUB 31000:POKE 752, CI 

1650 position C0,co:? "■riHramBramnmmGHram on 
■wpamnramBmaBHHmi!J|j<rjiwf=iriWDBB" wf 

1660 POSITION C0,Cl:? "■■■■■■■■■■■■■■■ 

■■■■■■■■■■■■■■■■■■■■■■■■^ * * xu 

1670 RETURN 

1680 FOR I=C1 TO 10:POKE 710,I:NEXT H «K 
RETURN 

1690 GRAPHICS MODE:GOSUB 31000:POKE 75 UQ 
2, CI : PAUSE=C0 

1700 POKE 708,C0:POKE 709,C0:POKE 710, ZC 
C0:POKE 712, C0 CR 
1710 COLOR ClsPLOT 30,C2:DRAMTO 121, C2 PY 
: DRAMTO 12 1 , 5 7 : D R AMT 0 30,57:DRAMTO 30, 



C2 

1720 ? " fflBSI fflBSI BBS) BBS) ffl 

Hfi 1 1 " 

1730 ? " Hi lISLOMlii aiFASTllI UPAUSli) [IIADU.H 
[HEX IT" 

174 0 ? " fflBPi .fflHffl fflBff fflBW ffl 

BPi" 

1750 0LDX = C4 : 0LDY = C1 i CURX = OLDX : CURY = OL 
DY 

1760 POKE 656, CURY : POKE 657,CURX:? "■" 

1770 FOR I=C1 TO 10:POKE 710,I:POKE 71 

2,I:NEXT I : RETURN 

1780 RETURN 

2320 REM DIRECTORY 

2340 G$cCU=" ":G$C6161=" ":G$cC2>=G$: 
K=C0:L=C0:POKE 752, CI 

2350 CLOSE «tCl:OPEN »C1 , C6 , C0 , "Dl : * . *" 
2360 INPUT ttCl, FILENAMES 

2370 IF F1LENAME$CC4,11>="5H0P:CLK" TH 
EN GOSUB 2440:RETURN 

2380 IF FILENAME$cC5,C8i="FREE" THEN C 
LOSE »Cl:GOTO 2410 

2390 G$ C17*K+C1, 17*K+LENcFILENAME$>>=F 

ILENAME$:K=K+C1 

2400 GOTO 2360 

2410 FOR I=C0 TO 13:P0SITI0N C1,C7+I:? 

G$ci7*cL + I>+Cl,17*cL + D+17);" "; G$ ci 
7*cL+I+14)+Cl,17*cL+I+14J+17J 
2420 NEXT Ii? :? FILENAMES ; " 



2430 RETURN 

2440 POSITION 2,22:? « 

mrnHBsmmsirafi : return 

3800 REM ERROR MSG 

3010 CLOSE »Cl:POKE 703,C4:POKE 752, CI 

:? "W" : ? " * Ban[i[§flm[§[§r^@BmrLimmmB 

* B"; 

3020 FOR I=C1 TO 100:NEXT I : POKE 703,2 
4:G0T0 260 

31000 BRK=U5R c ADR c"hQWinMhhMWraMapCI*i'iiU^ 
") , CU : RETURN : REM DISABLES BREAK MHEN 
ARG = 1 
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100 REM ICON ANIMATION SYSTEM, 

LISTING 2, THE SCRIPTER 
103 REM BY JIM JOHNSON 

106 REM cc>1989 ANTIC PUBLISHING INC 

110 C0=0 : Cl=l : C2=2 : C3=3 : C4=4 : C5=5 : C6=6 
:C7=7:C8=8:C9=9: C20=20 : MAX=C20+C5 
120 MODE=C6:OFF=40000:MAIT=10:GOSUB 31 
000:GOSUB 30000 

130 DIM FILENAMESC20J,TEMPSC20J,DEUICE 
S C3i , DPATHS C6J 

140 DIM G$C616> ,G2$c616*MAX> 

150 DIM SEQ$C101>,FILESC20*10>,SCRIPTC 

10H,CYCLEci0i, FNL C10J 

170 pict=adr c-hhnnharahannhn^ihhamhhQhhniu 

HmrHiiiniarisuwra^^^ 

19 0 GS = "»" : GS C616>=GS : GS C2>=G$ 

260 TRAP OFF:GOSUB 1500 i POSITION C2,C3 



27 0 ? " fflBSi":? " 
? " fflBffl" 

28 0 ? " fflBSI" : ? " 

ms?i" 



290 ? • 

fflBffl" 
300 ? • 
ftBff" 
310 ? • 

320 ? • 



BBS!* 
QBE)' 
fflBSI' 



IIMH CREATE SCRIPT"! 

[U ID LOAD SCRIPT":? 

SI U SAUE SCRIPT":? 

II dl RUN SCRIPT":? • 

til 11 SEQUENCER":? » 
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fflBSI":? " ID ID LOAD SEQUENCES 
TO RAMDISK":? " fflHffl" 

330 IF RAMD1 SK=1 THEN POSITION 5,19:? 

"X" : ? 

340 GOSUB 1550 

35 0 0LDX=C5 : 0LDY=C4 : CURX=OLDX : CURY=OLD 
Y 

360 CLOSE »Cl:OPEN «C1 , C4 , C0 , "K : " : GET 
t% C 1 , KEY 

370IF KEY=45 AND CURY>C4 THEN CURY=CU 
RYC3:G0f0 460 

380 IF KEY=61 AND CUR Y < 19 - C3* CR AMDI5K= 
13> THEN CURY=CURY+C3 : GOTO 460 
390 IF KEY=155 AND CURY=C4 THEN 480 
400 IF KEY=155 AND CURY=C7 THEN 670 
410 IF KEY=155 AND CURY=10 AND FILESO 
"" THEN 740 

ANTIC SOFTWARE LIBRARY 



429 IF KEY=155 AND CURY=13 AND FILESO 
"" THEN 888 

438 IF KEY=155 AND CURY=16 THEN TRAP 2 
68:RUN "D : ANIMATOR . B AS" 
448 IF KEY=155 AND CURY=19 THEN 850 



468 POSITION OLDX,OLDY:? 



■; POSITION 



CURX,CURY:? "■" ; : OLDX=CURX : OLD Y=CURY 
478 GOTO 368 
488 REM CREATE SCRIPT 
498 GOSUB 1588:G0SUB 1558 

588 DEUICE$ = "D? : " i DEUICES c2 , 21 =5TRS cRA 

MDISKisGOSUB I700.GOSUB 1828 

518 IF NOT FILE THEN CLOSE «C1 : OPEN » 

CI, C4, CO, "K: " s GET »Cl,KEY:GOTO 268 

528 POSITION 17, C3 : ? "SEQUENCE CYCLES 

";:position 17, C4 : ? "nnnnnnnn nnnnnn" 

538 0LDX=C3:0LDY=C4+FILE*C2:CURX=0LDX : 
CURY=OLDY : I=C1 

548 CLOSE MCl'OPEN »C1 , C4 , C8 , "K : " : GET 
**C 1 , KEY 

558 IF KEY=45 AND CURY>C4 THEN CURY=CU 
RY-C2:G0T0 598 

568 IF KEY=61 AND CUR Y < C4+FILE*C2 THEN 

CURY=CURY+C2 : GOTO 598 
578 IF KEY=155 AND CURY=C4+FILE*C2 THE 
N 268 

588 IF KEY=155 AND CURY>C3 AND CURY<C5 
+FILE*C2 THEN 618 

598 POSITION OLDX,OLDY:? " ";:POSITION 

CURX, CURY : ? "■" ; :OLDX=CURX: OLD Y=CURY 
688 GOTO 548 

618 FILES = G$ « FILENAMES=FILES cC8*c cCURY 
'C2i-C2i+Cl,C8*<<CURY'C2i-C2i + FNL cCURY 
'C2-C1H 

628 SCRIPT <H =CURY'C2-C1 : POSITION OLDX 
, OLDY J ? " 11 1 

638 POSITION 17,C4+I:? FILENAMES : POSIT 
ION 28,C4+I:? " Sfflfflffl";:POKE 752, C8 

648 TRAP 638:INPUT KEY s POKE 752, CI:? : 
IF KEY<C8 OR KEY>180 THEN 638 
658 CYCLECI>=KEY:5EQ=I:I=I+C1:IF 1=11 
THEN 268 

668 POSITION OLDX,OLDY:? "■";:GQTO 548 
678 REM LOAD SCRIPT 

688 TRAP 3888 : DEUICES=»D? : " ■ DEUICES c2, 
2i=STRScRAMDISKi sGOSUB 1780:GO5UU 1500 
sGOSUB 1550 

690 POSITION C2,C3:? "USE FORMAT s *DEU 
: FILENAME . EXT 

695 POKE 7S2,C8:P05ITI0N C2,C5:? "FILE 
NAME TO LOAD?";:POKE 764,255 

696 ON PEEKc764i=255 GOTO 696:IF PEEK c 
7641=28 THEN CLOSE ttCl : OPEN »C1,C4,C8, 
" K : GET «Cl,KEY:GOTO 268 

700 ? INPUT FILENAMES - IF FILENAME 

Sc=«" THEN GOSUB 2320:GOTO 695 

710 CLOSE «Cl:OPEN »C1 , C4 , C8 , FILENAMES 

720 GET *tl,5EQ:F0R I = C1 TO SEQ : GET «C1 

, J: SCRIPT cl J =J: GET «C1 , J : C YCLE (D = J : NE 

XT I:INPUT »Cl;FILES:CLOSE »C1 

725 FOR J=C1 TO SEQ : FILENAMES=FILES CC8 

*cJ CH+Cl,C8*cJ-CH+C8i : I = C8 

727 IF FILENAME$CI,D=" THEN I=I-CH 
GOTO 727 

728 F NL c J J =1 : NEXT J 
730 GOTO 260 

748 REM SAUE SCRIPT 

750 TRAP 3888:G0SUB 1500:GOSUB 1550:PO 
5ITI0N 2,3:? -USE FORMAT: 'DEU-FILENAM 
E . EXT • " 

755 POKE 752, C0 : POSITION C2,C5:? "FILE 
NAME TO SAUE?";:P0KE 764,255 

756 ON PEEKC7641 =255 GOTO 756:IF PEEK c 
7641=28 THEN CLOSE «C1 : OPEN »C1,C4,C6, 
"K : " : GET «Cl,KEY:GOTO 260 

760 ? "!*";:INPUT FILENAMES : IF FILENAME 

$ = •••'_ THEN GOSUB 2320:GOTO 755 

770 CLOSE *Cl*OPEN »C1 , C8, C8, FILENAMES 

788 PUT »C1,5EQ:F0R I=C1 TO 5EQ:J=5CRI 

PTcIirpUT «C1 , J : J=CYCLE ell : PUT »Cl,JsN 

EXT Is? ttCl ; FILES : CLOSE **C1 

798 GOTO 268 

880 REM RUN SCRIPT 

810 FILENAME $ = "D? : " : FILENAMES c2, 2i =STR 

S cRnMDISKi : GOSUB 1 5 6 0 : G S = F I L E S 

828 FOR J=C1 TO SEQ : I=5CRIPT cji : GOSUB 

1368 

830 FOR K=C1 TO C YCLE cji : GOSUB 970:NEX 
T K 

840 NEXT J sPOKE: 



858 REM LOAD RAMDI5K 



77,C8:G0T0 820 
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860 GOSUB 1500:GUSUB 1550 

870 DEUl l:ES = »Dl s ■• s GOSUB 1700:GO5UB 182 

0 

880 IF NOT FILE THEN CLOSE «C1:QPEN « 
Cl,C4,C8,--Ks"sGET »Cl,KEY:GOTO 260 
898 IF PEEKC532791 =3 THEN 918 
892 POKE 5439, ASC C"l»l s REM LOAD DUP.5Y 
S FROM DRIUE «1 

895 DPATHS=»D?:*.*":DPATHSC2,21=STR$<R 
AMDISKi s TRAP 918:CL05E «C1 s OPEN «C1,C4 
, C8, DPATHS 

900 XIO 33, «C1, C0, C0, DPATHS : CLOSE »C1 s 
GOTO 895 

918 POSITION 21,11:? "^LOADING*" s POSIT 
ION C3, C4+FILE*C2 : ? " "; 

928 FILENAMES=DEUICES : FOR I=C1 TO FILE 

^POSITION C3,C2+I*C2s? "■" ; 

938 FILENAMES=-D1 :": GOSUB 1360sGO5UB 1 

248 

948 POSITION C3,C2+I*C2:? " ";:NEXT Is 
GOTO 268 

958 REM DISPLAY IMAGES 
968 GOSUB 1568 

978 L=ADR€GS) : SCRMEM=PEEK c88i +PEEK c89> 

*256+C4+C4*28 

988 FOR I = C1 TO LEN cSEQSi 

998 IF A5CcSEQScl,Iii=C8 THEN GOSUB 14 
78sG0T0 1048 



L = ADRcG2S>+616*cA5Cc5EQSd,I>>-Cl 



1800 
1 

1010 X = USR CPICT, SCRMEM, L, 11, 52, C20J 

1020 FOR DEL AY = CI TO UAlTsIF PEEK C7641 

<>255 THEN GOSUB 1060 

1025 NEXT DELAY s POKE 77, C0 

1838 IF PEEKC764) <>255 THEN GOSUB 1060 

1048 NEXT I 

1858 RETURN 

1868 CLOSE »Cl:OPEN «C1 , C4 , C8 , "K : " : GET 

»Cl,KEY:POKE 764,255 
1878 IF KEY = 15 5 AND CURX = C4 THEN UAIT = 
UAIT+Cl+C4*cUAIT>29i + C5* cUAIT >45i +18* c 
UAlT>98i 

1888 IF KEY=155 AND CURX=11 THEN UAIT= 
UAIT-Cl-C4*cUAIT>36i - C5* cUAIT > 58 1 -18*c 
UAIT>100> : IF U A I T < C 8 THEN UA1T = C8 
1898 IF KEY=155 AND CURX=18 THEN PAUSE 
= NOT PAUSE 

1188 IF KEY=155 AND CURX=25 AND PAUSE 
THEN 1178 

1118 IF KEY=155 AND CURX=32 THEN POP i 
POP :GOTO 268 

1128 IF KEY=42 AND CURX<32 THEN CURX=C 
URX+C7:P0KE 657, OLDX:? " ";:POKE 657, C 
URX s ? : OLDX = CURX 

1138 IF KEY=43 AND CURX>4 THEN CURX=CU 

RX-C7:P0KE 657, OLDX:? •• ";:PQKE 657, CU 

RX : ? "■"; : OLDX=CURX 

1140 IF PAUSE THEN 1868 

1150 RETURN 

1168 GOSUB 1868 

1178 REM ADUANCE 

1175 IF SEQS=»» THEN 1868 

1180 I=I+Cl:lF I>LENCSEQS> THEN I=C1 

1190 IF ASCCSEQSCI,H>=C0 THEN 1188 

1288 L=ADRtG2Si +616* c ASC cSEQS cl. Ill -CI 

i 

1218 X=USRCP1CT, SCRMEM, L, 11, 52, C201 

1220 GOTO 1060 

1230 GOSUB 1500 

1240 REM SAUE SEQUENCE FILE 

1250 FILENAMES CC2, C2i="8" 

1268 CLOSE ttCl STRAP 1345:0PEN »C1,C8,C 
0, FILENAMES 

1278 SEQ$cLENcSEQSi+CH=CHRScFRAMESi :? 

«C1 ; 5EQS 
1280 I0CB=832+16 : POKE IOCB+2,11 
1290 ADRHI=INTcADRcG2Six256i s ADRLO= ADR 
CG2S> - ADRHI*256 

1300 POKE I0CB+C4, ADRLOsPOKE I0CB+C5,A 
DRHI 

1310 NM=616*FRAME5 :NMHI=INT cNM^256i s NM 
L0=NM-NMHI*256 

1328 POKE I0CB+C8,NML0:P0KE I0CB+C9,NM 
HI 

13 38 X = U5RcADRc»«hhhDLUm , 'i ,16i:IF cPEEK 
CI0CB + C9i*256 + PEEKCI0CB + C8n ONRED THE 
N 1345 

1348 CLOSE «ClsSEQS=SEQ$cCl,LENc5EQSi- 
CH s RETURN 

1345 TRAP 268:CL0SE stClsOPEN »C1,C4,C0 
^FILENAMES s XIO 33 , »C1 , C0 , C0 , FILENAMES : 
CLOSE ttC 1 s G 0 T 0 260 continued on next page 
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1358 GOSUO 1500 

1369 REM LOftD SEQUENCE FILE 

13 70 FILENAME* cC4)=GScC8*cl-CD+Cl,C8* 

cl-ClJ+FNLclin FILENAME^ CC4 + FNL (D ) =■• . 

SEH" 

1380 TRAP 1465:CL0SE stCl:OPEN tsCl,C4,C 
0 , FILENAMES 

1390 INPUT »C1;SEQS:FRAMES=ASCCSEQSCLE 
N(5tQS) AENt5EQ$>)) : 5EQS=5EQS CC1 , LEN CS 
EQS) -CD 

1400 I0CB=832+16 : POKE I0CB+C2,C7 

1410 ADRHI=INT cADR CG2S) ^256) : ADRLO= ADR 

cG2S) -ADRHI*256 

1420 POKE I0CB+C4, ADRLO : POKE I0CB+C5,A 
DRH1 

1430 NM=616*FRAME5:NMHI=INT cNM'256) : NM 
L0=NM-NMHI*256 

1440 POKE I0CB+C8 , NMLO : POKE I0CB+C9,NM 
HI 

1450 X=USRcADRC"hhhDLUffl") ,16) :NRED=PEE 
KdOCB + C9)*256 + PEEKclOCB + C8) 
1460 CLOSE «Cl:RETURN 

1465 POKE 656, C3: POKE 657, C2 : ? »•* GDOHH 
DfflHBSatlS * C"; FILENAMES; ■•) ";:POKE 6 
56, CURY 

1466 FOR DEL A Y = C1 TO UAIT : IF PEEK t764) 
<>255 THEN GOSUB 1060 

1467 NEXT DEL AY : POKE 77, C0 

1468 POP :GOTO 840 
1470 REM PAUSE 

1480 FOR DEL AY=C1 TO 100 : IF PEEKc764)< 
>255 THEN GOSUB 1060 
1490 NEXT DELAY : RETURN 
1500 REM TITLE SCREEN 

1510 GRAPHICS C0:POKE 709,C0:POKE 710, 
C0:GOSUB 31000:POKE 752, CI 

1520 position co,C0:? "BMnmmBr-iiiinmmiwom 
BHHBQsraBBBaBHraranBnHfiBEaBBB" 

1530 POSITION C0, CI : ? "■■■■■■■■■■■■■■■ 



1540 RETURN 

1550 FOR I=C1 TO 10:POKE 710,I:NEXT I: 
RETURN 

1560 GRAPHICS MODE:GOSUB 31000:POKE 75 
2, CI : PAU5E=C0 

1570 POKE 708,C0:POKE 709,C0:POKE 710, 
C0:POKE 712, C0 

1580 COLOR Cl:PLOT 30,C2:DRAUTO 121, C2 
• DRftUTO 121, 57 : DRAUTO 30,57:DRftUTO 30, 
C2 

1590 ? •• BBS) fflBffl fflBSl WB&I ffl 

gC]ll 

1600 ? " 31 ISLOUJ IF A 5 Till IHPftUS I LIIADU-IH 
HEXIT" 

1610 ? M ffleffl fflew fflBSi fflRHi w 

1620 0LDX=C4:0LDY=Cl: CURX=0LDX : CURY=OL 
DY 

1630 POKE 656, CURY : POKE 657,CURX:? "B" 

1640 FOR I=C1 TO 10 : POKE 710,I:POKE 71 
2,I:NEXT I : RETURN 
1650 RETURN 

1660 FOR DELA Y=C1 TO 100 

1670 IF PEEKC764) <>255 THEN GOSUB 1060 
1680 NEXT DEL ft Y : RETURN 
1690 RETURN 

1700 REM DIRECTORY OF SEQUENCES 

1710 G$cCD=" s GS c20*10) =" •*:GScC2»=G 

S : F1LE=C0 

1720 F II.ENAMES = DEUICES : FILENAMES c4)="* 
• SEQ" • CLOSE «Cl:OPEN «C1 , C7 , C0 , FILEN AM 
ES 

1730 INPUT ttCl, FILENAMES 

1740 IF FILENAMEScC5,C8)="FREE" OR FIL 
E>8 THEN CLOSE »Cl:GOTO 1800 
1750 F1LE=FILE+C1 

17 60 FILENAMES = F1LENAMES CC3 , LEN cFILENA 
ME S > - C7> :GScC8*<FILE-CD+Cl,C8*cFILE-C 
D+C8) ^FILENAMES 

1770 FOR 1=C8 TO CI STEP -Cl:IF FILENA 
MESCI,U<>" THEN FNL t FIL E) =1 : POP -GO 
TO 1790 
1780 NEXT I 
1790 GOTO 1730 
1800 RETURN 
1820 ? "'rtHfflBHHBRBBB&r 
N 1840 

1830 FOR I = C1 TO FILE:? ••[!! [II-;:? GS CC8 
* cl~CD +C1, C8* el-CD +C8) ; : ? "11":? "HB9I 
III": NEXT I 

1840 ? "[IBOTBBHHQfilBflli"; : IF FILE THEN ? 
:GOTO 1860 



MC 
RF 
BK 
HF 
NX 

OU 
CO 
NQ 

NK 

Ul 

RS 
ZU 

NC 

AR 

OU 

HA 
SU 

ZA 

OX 

QL 

KS 
ZL 



1850 ? " * NO SEQUENCE FILES *' 
18 6 0 ? " LHBftBBBBBBBB ffl • • ; 
1870 RETURN 
2320 REM DIRECTORY 

2340 GScCD = GSc616)=" ■ 

K=C0 : L=C0 : POKE 752, CI 
2350 CLOSE «C1:0PEN »C1,C7, 
2360 INPUT «C1, FILENAMES 
2370 IF FILENAMEScC4,lD=* 
EN GOSUB 2440:RETURN 
2380 IF FILENAMESCC5,C8J=* 
LOSE «Cl:GOTO 2410 

23 9 0 GS C17*K+C1, 17*K+LEN c FILENAMES) ) =F 
1LENAMES : K=K+C1 
2400 GOTO 2360 

2410 FOR I=C0 TO 13:P0SITI0N C1,C7*I«? 

GS<l7*cL + D+ Cl,17*cL + I)+17);" ";GSd 
7*cL+I+14)+Cl,17*cL+I+14)+17) 
2420 NEXT I * ? :? FILENAMES;" 



• : GS cC2) =GS : 

, C0 , "Dl 
•SHOP:CLK" TH 
•FREE" THEN C 



2430 RETURN 

2440 POSITION 2,22:? •• 
i;i[i||^BId[«llHlimh : RETURN 

3000 REM ERRUR MSG 
3010 POKE 703,C4:POKE 752, CI : ? 

* BraritiraBHaraaeBBSk^imsB * Q"; 

3020 FOR I=C1 TO 100:NEXT I : POKE 703,2 
4-GOTO 260 

30000 RAMDISK=1 : TRAP 30010:CLOSE «4 : OP 
EN **4, 6, 0, "D8 :*.*'•: RAMDISK=8 
30010 TRAP 30020:CLOSE «4 
30020 TRAP OFF : RETURN 

31000 brk=usr c adr c"ha«ciMhhnwraisiapn*wu[iw 

") , CD : RETURN 



LISTING 3 



IF NOT FILE THE 



IN 

YO 
GX 
ZD 



EU 

IJ 
PR 

UO 

RD 

PY 

TH 
UB 

MY 
KB 
PU 

LU 

BQ 
YC 

DM 

BK 

MM 

CM 

UQ 

AR 
PU 
AL 

FU 
DU 

UL 

DL 

UJ 



10 REM ICON ANIMATION SYSTEM, 

LISTING 3 
20 REM BY JIM JOHNSON 

30 REM cc> 1985,1989 ANTIC PUBLISHING 
35 REM CCREATES LINES 170 & 31000 FOR 
LISTINGS 1 AND 2. CREATES LINE 160 FOR 

LISTING 1) 
40 REM CLINES 10-250 MAY BE USED UITH 
OTHER BASIC LOADERS IN THIS ISSUE. 
50 REM CHANGE LINE 70 AS NECESSARY.) 
60 DIM FNSC20) ,TEMPSC20) , ARSC93) :DPL=P 
EEKC10592) : POKE 10592,255 

70 FNS="D:LINE5.LST":REM THIS IS THE N 
AME OF THE DISK FILE TO BE CREATED 
80 ? "BtDiSk or Basse tte?" ;: POKE 764,25 
5 

90 IF NOT CPEEKC764) =18 OR PEEKc764)= 
58) THEN 90 

100 IF PEEKC764)=18 THEN FNS="C : " 

110 POKE 764 , 255 : GRAPHICS 0:? »■ AN 

TIC'S GENERIC BASIC LOADER" 

120 ? ,"BY CHARLES JACKSON" 

130 POKE 10592, DPL : TRAP 200 

140 ? :? :? "Creating •' ; FNS : ? "...Plea 

se stand b«J." 

150 RESTORE : READ LN : LM=LN : DIM AS cLN) : 

C = l 

160 ARS="":READ ARS 

170 FOR X=l TO LENCARS) STEP 3:P0KE 75 
2, 255 

180 LM=LM-1 : POSITION 10,10:? -cCountdo 
wn . . . T-"; INT cLM'10) ; ") 

19 0 AScCO=CHRScUALcARScX,X + 2))) :C = C + 
l:NEXT X:GOTO 160 

200 IF PEEKC195)=5 THEN ? :? :? "BTOO 
MANY DATA LINES!":? "CANNOT CREATE FIL 
E! " : END 

210 IF C<LN+1 THEN ? :? "BTOO FEU DATA 

LINES!":? "CANNOT CREATE FILE ! " : END 
220 IF FNS="C:" THEN ? :? " Prepare ca 
ssette, press [RETURN] •• 
230 OPEN »1 ,8,0, FNS 

240 POKE 766,1:? »l;ft$;:POKE 766,0 
250 CLOSE «l: GRAPHICS 0:? "BSGlffiHmMMtallOB 

1000 DATA 204 

1010 DATA 0490540480320830820650680820 

6106506808204 0034104104141005003104141 

0 04 003104141011003104141010 

1020 DATA 0031041041410010031041041701 

69 0821410 0200 303208322 820217 3003 0 03201 

001240004224 000208241169000 

1030 DATA 1332131730030031332120960340 

4115504 9 05 504 803208 007 30 670 84 06106 5068 

082 040 034104104133204104133 

1040 DATA 2031041332061041332051041041 

ANTIC SOFTWARE LIBRARY 



3320718418417810410413320816426713617 7 XK 

28514528313619225528824 7824 

1050 DATA 1652031012061332031440022382 

84 824165285161287133285144882238286282 RU 

2082190 96034 04115505104 9048 



1060 DATA 0480480320660820750610850830 
8204 0 065068082848834184169888133877184 
18428188824 8887169112133816 
1676 DATA 1416142186 96 6 34641844 64 96416 
5 886286 9884 68 5 8 828 78 8 32155 



HELP files printed on half the pages 

TWo-Column Print Pro 



LISTING 1 



Don't type the 
TYPO II Codes! 



2 REM TWO-COLUMN PRINTING 
4 REM BY EARL HALEY 

6 REM c c >1989, ANTIC PUBLISHING INC 
16 GRAPHICS 8:P0KE 718,14:P0KE 712.14: 
POKE ?69,2:DIM BUZSc3>:F0R N=l TO 3 : BU 
ZS cN> =CHRS c253> :NEXT N 

26 ? :? :? " TMO-COLUMN PRINTER PROGRA 
M" i ? :? M By Earl Haley" 
25 K5IZE=48*86 

30 DIM BLANKS cKSIZE* , C0L1S CK5IZE> , C0L2 
ScKSIZE* , RSc41> , TESTS c2> * FILENAMES C15* 
: PAGE = 8 : FILE = 1 « FINISHED = 8 

48 BLANKSci>= BLANKS cKSIZE* = " ":BLA 

NKS C2>=BLANKS : C0L1S = BLANKS : C0L2S = BL ANK 

s 

58 GOSUB 766:G0SUB 800*6010 376 

180 TRAP 230-CLOSE »1 : OPEN «1,4,8,FILE 

NAMES :PAGE=8 

118 TRAP 238 

128 FOR C0LUMN=1 TO 2 

138 5=l:F=48 

146 FOR LINE=1 TO NL : REM cNL DEFINED I 
N LINES 746 AND 758» 

158 INPUT «1,RS:IF LENcRS*=3 THEN IF R 

Scl,3>="XXX" OR RSci,3>=BUZ$ THEN 158 

168 ON COLUMN GOTO 176,188 

178 C0L1S cS, FJ =RS : GOTO 198 

188 C0L2SC5,F>=RS 

198 S=F+l:F=5+39 

260 NEXT LINE 

216 NEXT COLUMN 

226 GOTO 256 

236 IF PEEKC195"*=178 THEN ? CHRS C125* : 
? i? "FILE NOT FOUND" ■ CLOSE til: GOTO 38 
8 

235 IF PEEKC195>=160 THEN ? "DRIUE» ER 
ROR":CLOSE «2 : GOTO 448 

248 IF PEEKC195*=144 THEN ? CHRS C125> : 
? :? "DISK DR1UE ERROR" I CLOSE «1 : GOTO 

380 

245 IF PEEKC195>=136 THEN FINISHED=1 > G 
OTO 256 

246 ? "DISK ERR0R":CL05E til: GOTO 388 
258 P AGE=P AGE+1 

268 CLOSE «2:0PEN »2,8,8,"P:" 
276 S=l:F=48 

288 FOR PRYNTL YNE=1 TO NL 

298 ? »2; C0L1S c5, F> ; C0L2S cS, F* 

368 S=F+l:F=5+39 

318 NEXT PRYNTLYNE 

328 C0L1S=BLANKS : C0L2S=BLANKS 

338 ? »2=? »2; BLANKS d, 36* ; "- " ; P AGE ; " 



FINISH 
1 : GOSUB 



348 IF FILE <> FINISHED THEN 345 
341 ? »2;BLANKSd,35> ;"- END — " ' 
ED = 6:? "S1D0NE •":? "Press a Key 
666 : RUN 

345 IF CPOl THEN 358 

346 ? "Pause for Paper Change - Check 
Your Pprinter- Press Any Key When R 
eady":G05UB 660:GOTO 116 

358 IF CP=2 THEN FOR N=l TO FS-NL-2:? 
»2:NEXT N 
368 GOTO 118 

378 CLOSE «2:GRAPHIC5 6 : POKE 716,58:? 
CHRS C125* 

375 IF F5=84 THEN ? 
1/2 x 14 INCHES >" 

376 IF F5=66 THEN ? 
E 8 1^2 x 11 INCHES 



LEGAL SIZE 8 
STANDARD 5IZ 



388 ? 
ue" 



•Be Sure ANTIC DISK Is In Dri 



XK 

AH 

NO 
QQ 

UO 
UG 
AH 

BO 
EU 



DO 

EO 
UO 

EU 

MA 

EG 



ML 

SX 
AU 
TR 



UN 

HZ 
QD 

UO 
14 H 

QE 
TZ 

PI 

HU 
GD 
FO 
UM 

IB 
CO 

GA 



DO 

MO 

UU 
UU 
Yl 
PN 
TU 

CK 

GL 

UU 

cu 

ZM 
PY 



382 ? : 


? 


"Be 


e ready 






385 ? : 


? 


:? 


print" 






398 ? : 


? 


:? » 


486 ? : 


? 


»• c2> 



■FILENA 



Be sure Printer and Paper ar 

Uhat File do you wish to 

CD ANTIC HELP FILE" 
OTHER" : POKE 752,1:? :? 

•• <p » • 

418 GOSUB 666 

428 ON BYTE -48 GOTO 436,435 

4 36 FILENAMES="D i DOC . TXT" :FLAG=2 i GOTO 

166 

435 ? CHRSC1251 

446 ? :? :? :? "cPress RETURN for di 
SK directory)":? "cLists only files wi 
th .TXT extender'" 

456 ? :? "ENTER NAME OF 48-COLUMN TEXT 
FILE" 

468 ? " CD : XXXXXXXX . XXX) " 

478 TRAP 238:INPUT FILENAMES : IF FILENA 
MES = **- THEN GOSUB 590:GOTO 448 
472 IF LEN (FILENAMES) <3 THEN ? 

475 TESTS=FILENAMES ci,2» 

476 IF TESTSO"D:" AND TE5TSO»Dl" AND 
TESTSO"D2" AND TESTSO-D8" THEN ? "D 

RIUE »?":GOTO 456 

486 IF LEN CF1LENAMES) >15 THEN ? "FILEN 

AME TOO LONG ! •• : ? : GOTO 458 

490 CLOSE til '-OPEN **1,4, 0, FILENAMES 

508 TRAP 550:FOR N=l TO 10 

510 INPUT »1,R$:IF LEN(RS)>40 THEN ? " 

NUT A 40-COLUMN FILE":POP : CLOSE «1 : GO 

TO 560 

520 IF LENCR$)>1 THEN CLOSE ttl:FLAG = 2: 
POP :? :GOTO 100 
530 NEXT N 

550 CLOSE **l:? »? :? "NOT A 40-COLUMN 
TEXT FILE ! M 

560 ? :? "PRESS ANY KEY TO CONTINUE" 
570 GOSUB 660 
586 GOTO 386 

598 TRAP 636:CL0SE »1 : OPEN »1,7,8,"D:* 

: TE5T = 8 « FOR N = l TO 99:INPUT »1,RS 
666 IF RSC11,13>="TXT" THEN TE5T=TEST+ 
18? RS;«« 
618 NEXT N 

638 IF PEEKC195»=136 THEN 658 
640 ? "DISK ERROR" 
658 IF TEST<1 THEN ? 
TEXT FILES FOUND":? 
655 CLOSE »1 : RETURN 
668 CLOSE «4:0PEN »4 , 4 , 8 , 1 
YTE : CLOSE «4 : RETURN 

? :? "BE SURE SOURCE DISK IS IN DR 
? "BE SURE PRINTER IS READY":? 
SELECT PAPER SIZE":? 

(1) Standard 8 1'2 x 11 in 



:? "NO 48 COLUMN 



GET »4,B 



786 
IUE 
: ? 
716 
c hes . 
728 ? 



: ? 
: 7 

? " • 



14 



? " c2* Legal size 8 1'2 

inches" : POKE 752,1:? ••?"; 
738 GOSUB 660 

748 IF BYTE=49 THEN FS=66 : NL=52 : RETURN 
758 IF BYTE=56 THEN F5=84 : NL=68 i RETURN 
768 GOTO 738 

866 ? CHRSC125>:? :? "WHICH DO YOU UAN 
T" 

816 ? :? " 
ch page" 
828 ? :? " 
• • : ? : ? ••?•« 

838 GOSUB 668 

846 IF BYTE=49 THEN CP=l:RETURN 

858 IF B YTE=56 THEN CP=2:RETURN 

866 GOTO 838 



(1) Change paper after ea 
c2> Continuous feed paper 
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Antic Classifieds 



SOFTWARE, ETC. 
****** 

ENJOY quality PD software! Games- 
productivity — utilities— more! Demo disk, 
S3. 00. . .catalog FREE. Homemade, 6011 Hyde 
Park Circle, Suite 206, Jacksonville, FL 32210 

(6/89) 

Atari 800/XL/XE public domain disks. High 
quality disks, fast service, free list. High qual- 
ity disks, fast service, free list. 1st Byte, PO Box 

130822, Tyler, TX 75713 (8/89) 

Large library of the best public domain soft- 
ware for the 800/XL/XE. We have over 200 
disks to pick from, low prices, fast service, & 
unbelievable discounts. Write for our large free 
list. ComputerActive, Box 893-A, Clinton, OK 

73601 (6/89) 

9 DISKS FULL OF SPARTADOS UTILITIES for 
use with 8 bit Atari & SpartaDOS. Only 14.95 
+ 2.50 S/H. ComputerActive, Box 893-S, Clin- 

ton, OK 73601 (6/89) 

PRINT SHOP ICONS FOR THE ATARI 
800/XL/XE. 10 disks with over 1000 pictures 
for use with Printshop. Only 14.95 + 2.50 S/H. 
Order today! ComputerActive Box 893-P, Clin- 

ton, OK 73601 (6/89) 

12 X-rated disks for the Atari 800/XL/XE only 
$14.95 + S2.50 S/H. You must send a signed 
statement of being over 21 with a check or 
money order to: ComputerActive, Box 893-X, 
Clinton, OK 73601 (6/89) 

250+ DS/SD DISKS OF PD SOFTWARE FOR 
THE 8-BIT ATARI. SEND $3 TO: AAPDS 6- 
18TH EDGEMORE, HUTCHINSON, KS 67502 
FOR A CATALOG LISTING AND DEMO DISK. 



****** 

BEST PD DISKS/PRICES— fastest service— 
FREE bonuses— 8-bit/ST. Automatic DISK-A- 
MONTH program. Full disks less than $1.50 
each. Super sample disk with catalog S3. 50. 
Specify Computer. PATNOR, PO370782, El 

Paso, TX 79937(6/89) 

The A Exchange — A Users Newsletter for ALL 
Atari Owners. Send SASE for FREE Issue. The 
A Exchange, P.O. Box 25852-A, Fresno, CA 

93729 (6/89) 

Public Domain Software— ST $4/Disk, 
800/XL/XE $3/Disk. Largest ST Selection. The 
Atari ST Book $16.95. Fast Service, Visa/Master- 
card, FREE catalog— Specify Computer. BRE 
Software, 352 W. Bedford, Suite 104-A, Fresno, 

CA 93711. (800) 347-6760 (1/90) 

50 Arcade, Adventure, strategy games by 
Accolade, Atari, Avalon Hill, SSI, $6 each. Atari 
800 48K and 810 drive $95. Paul Cirto (305) 

920 1954 (6/89) 

FREE ATARI 8-BIT PD SOFTWARESend 
large SASE for listing and details you pay only 
for postage, handling and blank media. DINO'S 
RYO SOFTWARE, 664 W Arrow Hwy, Suite 
197, San Dimas, Calif. 91773 (6/89) 

****** 

Stop overpaying for PD. Software!!! ALL 8-bit 
disks only $2.00 each, ST only $3.00. Quan- 
tity discounts, great selection. Specify com- 
puter. Send large SASE: MWPDS, 890 N. 
Huntington St., Medina, OH 44256 (6/89) 



NEW 800/XL/XE SOFTWARE! An international 
Collection of Shareware and Public Domain 
programs for the discriminating Atari owner. 
Every disk Guaranteed! Dependable world- 
wide service. Low prices! Send for Free descrip- 
tive catalogue. BELLCOM, Box 1043-A, Peter- 
borough, Ontario, Canada K9J 7A5 (6/89) 

STOP! LOOK! $4,000/month with computers. 
Homebased. Proven. No experience/capital. 
Guaranteed. Free details. MacKenzie, Box 
91181— MCC, Pasadena CA 91109 (6/89) 

AGAPE GAMES-5 CHRISTIAN GAMES. 

KINGS GLORY Arcade like Adventure with 26 
mazes and a maze maker. BIBLE WORD 
SEARCHER with 30 puzzles and a puzzle gener- 
ator. Plus 3 games that teach the Books of the 
Bible. For Atari 8-bit (requires 48K + disk) 
$12.95-Daniel Sharpe, GPO 911, Chicopee, MA 

01021 (7/89) 

COMPREHENSIVE COMIC BOOK SYSTEM! 
ATARI 8-bits, 48-K, disk drive. Excellent man- 
ual! $19.95. SASE for More Info. BUECO, 3900 
Hampton Dr., Anchorage, AK 99504 (6/89) 

****** 

BATTERY BACKED UP RAMDISK. Never 
lose your memory, Boot from Ramdisk! No 
installation. Ramdisk cartridge plugs into Atari 
400/800 or XL/XE. 32K $99.95, 64K $129.95, 
192K $249.95 Certified check, Money order, 
VISA accepted. CANOE COMPUTER SERV- 
ICES, 11006-155 ST EDMONTON, AB, T5P- 
2N3 Phone (403) 437-4619 (6/89) 



Your Ad Could Appear Here 



Advertisers 
Index 

Be sure to mention ANTIC when contacting these advertisers— all of whom 
support the Atari 8 bit and ST computer. 

PAGE NO. 



ALPHA SYSTEMS 6 

AMERICAN TECHNAVISION IFC 

B & C COMPUTERVISION 43 

COMPUTER MAIL ORDER BC 

COMPUTER SOFTWARE SERVICE 44 

INNOVATIVE CONCEPTS 14 

REDMOND CABLE 8 

SAN JOSE COMPUTER IBC 



This list is provided as a courtesy to our advertisers. ANTIC does not 
guarantee accuracy or comprehensiveness. 



Advertising 
Deadlines 

August 1989 

Insertion Orders: May 1 
Artwork: May 8 

On Sale: Last week of June 

October 1989 

Insertion Orders: June 30 

Artwork: July 7 

On Sale: Last week of August 

September 1989 

Insertion Orders: May 31 
Artwork: June 7 

On Sale: Last week of July 



GET YOURS FAST 




Super Bonus Program! 

Found only on the disk, it's too large a type-in 
program to fit in the magazine. 

Plus all 172K of this month's Antic programs on 
disk. Great 8-bit software without typing! 

Phone Toll Free 

(800) 234-7001 

Phone orders by Visa or MasterCard only 
Ask for ADS689 




The ATARI" Resource 



BUY 



SELL 



TRADE 



SWAP 



Antic Classifieds 

544 Second Street, San Francisco, CA 94017 
Telephone (415) 957-0886 



Company 



City/State/Zip 



MasterCardA'isa Number 



Expiration Date 



Signature 

Enclosed Is my payment for S _ 



Issue(s) Ad to Appear 



RATE: SI. 00 PER WORD — twenty (20) word minimum. 

BOLDFACE: Add S7.50 per line for boldface words or add $40.00 for the entire ad set 
in boldface (any number of lines). 

STARS: Add $6.50 for one (1) line of six (6) stars *★★★★★ at top of ad. 
TERMS: Prepayment is required. Check, Money Order, Visa or MasterCard is 
accepted. Make check payable to Antic Publishing. 

FORMS: Ads are subject to publisher's approval and MUST BE TYPED. Please underline 
words to be set in boldface. 

GENERAL INFORMATION: Advertisers using Post Office Box numbers in their ads must 
supply permanent address and telephone numbers. Ad will appear in the next avail- 
able issue after receipt unless otherwise specified. 

DEADLINE: 90 days prior to cover date (e.g., December 1988 closes September 1, 
1988— December issue on sale November 1, 1988). 

Clip this coupon, attach to typewritten copy and send with remittance to address on 
the left. 

HANDWRITTEN COPY WILL NOT BE ACCEPTED 



AN AD IN ANTIC REACHES MORE THAN 100,000 SERIOUS ATARI USERS 



Tech Tips 



GTIA PIXELS IN GR.O & GR.8 

BY GREG VOZZO 

This short program shows you how to use those long, 
multi-colored GTIA pixels in other graphics modes. 

There are many powerful uses for this technique, such 
as creating multi-colored redefined character sets for ar- 
cade games. The thickness of the GTIA pixels make let- 
ters and numbers almost illegible, but their variety of colors 
offer an easy way to add color to your characters. 

In modes such as Graphics 8, each pixel is one bit wide. 
Thus, if a bit is set, its corresponding pixel is lit. In these 
graphics modes, the bit pattern shown in the left half of 
figure 1 will draw an "A" and uses 64 pixels. 

GTIA pixels are four bits wide. In a GTIA mode, the 
bit pattern would draw a small multi-colored box eight 
scan lines tall and two pixels wide. The color of each pixel 
is determined by its bit pattern. The second scan line, for 
example, contains one pixel of COLOR 1 (or 0001 in bi- 
nary) and one pixel of COLOR 8 (1000 in binary). 

The right half of Figure 1 shows the color breakdown 
of the entire character. 



Don't type the 
TYPO II Codes! 



FIGURE I 

DECIMAL BITMAP 

0 

24 
60 
102 
102 
126 
102 
0 



IN BINARY AS SEEN BY GTIA 



0000 0000 

XX 0001 1000 

— xxxx 0011 1100 

-XX XX- 0110 0110 

-XX XX- 0110 0110 

-XXXXXX- 0111 1110 

-XX XX- 0110 0110 

0000 0000 



COLOR 0 COLOR 0 
COLOR 1 COLOR 8 
COLOR 3 COLOR 12 
COLOR 6 COLOR 6 
COLOR 6 COLOR 6 
COLOR 7 COLOR 14 
COLOR 6 COLOR 6 
COLOR 0 COLOR 0 



Learn these simple techniques and you'll have color- 
ful GTIA characters dancing around your screen in no 
time. 

The listing below is a short demo of using GTIA pixels 
in Graphics 0 and Graphics 8. When RUN, the program 
asks if you'd like to see mode 9 (16 shades of a single 
color), mode 10 (9 colors) or mode 11 (16 colors of a 
single shade). After you choose your mode, the program 
will draw a series of stripes in Graphics 8, print some text 
in the text window, then pop into your chosen GTIA 
mode and rotate the colors. When you're done, press any 
key to return to the main menu. 



Rtt 

0D 
UR 

KB 

JE 

5A 

IN 
BU 

YS 

KE 
SP 



18 GRAPHICS 0:? "H 
? "■BHBMODE 16":? 
? :? "SELECTION : " ; 
28 CLOSE BIROPEN » 
38 TRAP 38:GET «l 
>3 THEN 38 
48 G=K+8 : GRAPHICS 
TO 8+cG=15>*7 
58 COLOR I:F0R J=I 
ci8+cG=18»*5>+c8+c 
68 PLOT 8,J:DRAUT0 
? "THIS IS ■DSHD! 

623,96*cK=l>+128* 
78 IF K=l THEN FOR 
,I:GD5UB 75:NEXT I 

71 IF K=2 THEN FOR 
,PEEKC53778> : NEXT 

72 FOR 1=8 TO 255 
NEXT I:P0KE 712,6 
75 FOR P=l TO 18:N 
88 TRAP 88:GET «1 , 



'•:? "■QHEM0DE 9":? ■ 
:? "aSWEMODE 11" «? ■ 

1,4,8*"K>" 

K:K=K-48:IF K<1 OR K 

8:P0KE 87,G:F0R 1=8 

* €18+ cG=18»*53 TO I* 
G=18>»5> 

79,J:NEXT J.'NEXT I- 
IN THIS MODE."; :P0KE 
CK=2>+192*CK=3* 

1=8 TO 255:P0KE 712 
:P0KE ?12,8:G0T0 88 

1=784 TO 712:P0KE I 
I:G0T0 88 

POKE 712,I:G05UB 75: 
GOTO 88 
EXT P : RETURN 
K: RUN 



ATARI AUDIO CASSETTE 

BY GREG VOZZO 

This short BASIC program turns on your Atari 410 
or 1010 Cassette Recorder's motor, letting you play 
any audio tape through the TV or monitor speaker. 
It reactivates itself whenever [RESET] is pressed. To 
deactivate it, POKE 1791 with any number from 
0-254. To re-enable it, POKE 1791 with a 255. 

If you want to disable it without disabling the 
[RESET] reactivation process, simply POKE a 60 into 
location 54018. POKE 54018 with a 52 to reactivate 
the motor at any time. 

This program is an extension of my DOSINI HOU- 
DINI, a Tech Tip from January 1988, which explains 
how to trap [RESET] by modifying part of your 
Atari's warm-start cycle. 

Don't type the 
Vxi^TYPO II Codes! 

OR 



Y5 



18 FOR 1=1775 TO 1791:READ ft:P0KE I, A: 
NEXT I : DATA 32,8,8,173,255,6,281,255,2 
88, 5, 169, 52, 141, 2, 211, 96, 255 
28 POKE 1776, PEEKC12* :P0KE 1777,PEEKcl 
3J : POKE 12, 239: POKE 13,6:? •^HB@@HOHMII 

[• m if • ]i mm m\ •• n ism "-poke 54818,52 



Antic pays $25 for every original and exclusive Tech 
Tip submission that we publish. Send your 8-bit or ST 
disk and printout to: Antic Tech Tips, 544 Second 
Street, San Francisco, CA 94107. Tech Tips welcomes 
very short programs that demonstrate the Atari's 
powers, simple hardware modifications, or useful 
macros for popular software. 
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ANTIC, THE ATARI RESOURCE 



Compute rvisions 



3257 Kifer Road 
Santa Clara, CA 95051 
(408) 749-1003 



A 



STORE HOURS 
TUE - FRI 10am - 6pm 

SAT - 10am - 5pm 
CLOSED SUN - MON 



SOO/ X E/ X E S OETW ^ RE 

ALL TITLES ON DISK 



SOO/ XE/ XE SOEITW^LRE 

ALL TITLES ON CARTRIDGE 



ENTERTAINMENT 

12 ADAMS ADVENTURES .. 14.95 

ALIANTS 26.95 

ALT. REALITY CITY 26.95 

ALT. REALITY DUNGEON. 26.95 

BEYOND CASTLE WOLF 14.95 

BISMARK 26.95 

BOP & WRESTLE (64K)... 26.95 

BORDINO:1812 26.95 

BOULDERDASH CONSTR.SET 17.95 

BRUCE LEE 17.95 

CASTLE WOLFENSTEIN 14.95 

DALLAS QUEST 7.95 

D-BUG 7.95 

F-15 STRIKE EAGLE 31.50 

FIGHT NIGHT 17.95 

GAUNTLET (64K) 31.50 

DEEPER DUNGEONS 22.50 

GUNSLINGER 26.95 

HARD HAT MAC 7.95 

JAWBREAKER 9.95 

KARATEKA 13.50 

KNICKERBOCKERS 13.50 

KORONIS RIFT 13.50 

LAST V-8 8.95 

LEADERBOARD 13.50 

MAIL ORDER MONSTERS .. 13.50 

MICROLEAGUE BASEBALL.. 35.95 

MONTEZUMA'S REVENGE... 14.95 

MOUSEQUEST 17.95 

MOON SHUTTLE 7.95 

NINJA 8.95 

OIL'S WELL 9.95 

O'RILEY'S MINE 9.95 

PIRATES OF BARB. COAST 22.50 

PREPPIE I & II 9.95 

RESCUE ON FRACTALAS... 13.50 

SILENT SERVICE 31.50 

SPEEDKING 8.95 

SPIDERMAN 7.95 

SPITFIRE 40 31.50 

STARFLEET I 44.95 

SPY VS. SPY III 17.95 

STOCKMARKET 22.50 

STRIP POKER 26.95 

SUMMER GAMES 17.95 

TAX DODGE 9.95 

THE HULK 7.95 

TOMAHAWK (64K) 26.95 

TOP GUNNER 17.95 

TOUCHDOWN FOOTBALL ... 13.50 

TRAILBLAZER 26.95 

UNIVERSE 44.95 

ZAXXON 13.50 

PROGRAMMING 

ACTION! 71.95 

ACTION! TOOLKIT 26.95 

BASIC XL 53.95 

BASIC XL TOOLKIT 26.95 

BASIC XE 71.95 

DISK I/O 26.95 

DRAPER PASCAL 44.95 

KYAN PASCAL 62.95 

LIGHTSPEED C 35.95 

LOGO 2 9.95 

MAC/65 71.95 

MAC/65 TOOLKIT 26.95 

MACRO ASSEMBLER 22.50 

PILOT 19.95 

SPARTA DOS X 71.95 

TOP DOS 1.5 PLUS 35.95 

PRODUCTIVITY 

ANIMATION STATION 89.95 

ATARIWRITER+ 3 9.95 

ATARI BOOKKEEPER 24.95 



ATARI MUSIC II 14.95 

AWARDWARE (1050) 13.50 

BANK STREET WRITER 14.95 

BLAZING PADDLES 31.50 

CELEBRITY COOKBOOK ... 26.95 

COMPUTE YOUR ROOTS ... 35.95 

DATAMANAGER 17.95 

FAMILY FINANCE 6.95 

GUITAR WIZARD 2 6.95 

HOME ACCOUNTANT 19.95 

HOME FILING MANAGER. . 6.95 

HOMEPAK 24.95 

INVENTORY MASTER 80.95 

LETTER WIZARD 29.95 

MUSIC CONSTRUCTION SET 13.50 

NEWSROOM (1050 - 64K) . 13.50 

NEWS STATION 26.95 

NEWS STA. COMPANION. . 26.95 

PAGE DESIGNER 26.95 

PRINT POWER (1050) 13.50 

PRINTKIT (1050) 13.50 

PRINTSHOP 34.95 

P.S. COMPANION (64K) . 24.95 

P.S.GRAPHICS LIBRARY 1 17.95 

P.S.GRAPHICS LIBRARY 2 17.95 

P.S.GRAPHICS LIBRARY 3 17.95 

PROOF READER 17.95 

PUBLISHING PRO 35.95 

RUBBER STAMP 2 6.95 

SYNTREND 14.95 

SUPER MAILER 35.95 

THE LOTTO PROGRAM 17.95 

TIMEWISE 6.95 

TURBOWORD/80 COLUMN 

REQUIRES XEP80 44 .95 

VIDEO TITLESHOP (64K). 26.95 

GRAPHICS COMPANION. 17.95 

VIRTUOSO 29.95 

VISICALC 24.95 

EDUCATION 

ATARI LIGHT MODULE 

(REQ. ATARI LAB STARTER) 9.95 

BUZZWORD 35.95 

GRANDMA'S HOUSE (-10) 9.95 

HEY DIDDLE (AGE 3-10). 9.95 

MASTER TYPE 14.95 

PLANATARIUM 22.50 

STATES AND CAPITALS .. 9.95 

TOUCH TYPING 9.95 

CBS (AGE 3-6) : 

ASTROGROVER 8.95 

BIG BIRD SPEC DELIVE 8.95 

ERNIE'S MAGIC SHAPE. 8.95 
DESIGNWARE : 

MATHMAZE (6-11) 35.95 

MISSION ALGEBRA (13+)35.95 

SPELLICOPTER (6-11). 35.95 
TINK TONK (AGE 4-6) : 

ABC'S 8.95 

COUNT AND ADD 8.95 

SMART THINKER 8.95 

SPELLING 8.95 

SUBTRACTION 8.95 

THINKING SKILLS 8.95 

ALL 6 TINK TONKS.. 39.95 
UNICORN: 

10 LITTLE ROBOTS 

(PRE-SCHOOL) 26.95 

FUN BUNCH ( 6-ADULT) 26.95 
RACECAR RITHMETIC 

(AGE 6 + ) 26.95 

WEEKLY READER (PRE-SCHOOL) : 

STICKY BEAR SHAPES . 26.95 

STICKY BEAR NUMBERS. 2 6.95 

STICKY BEAR ABC'S .. 26.96 

STICKY BEAR OPPOSITE 26.95 



ENTERTAINMENT 

ALIEN AMBUSH 9.95 

ACE OF ACES . (XL/XE) . 24.95 

ARCHON 19.95 

ASTEROIDS 15.95 

ATARI TENNIS 9.95 

BALL BLAZER 19.95 

BARNYARD BLASTER 24.95* 

BATTLEZONE 19.95 

BLUE MAX 19.95 

CAVERNS OF MARS 14.95 

CENTIPEDE 14.95 

CHICKEN 9.95 

CHOPLIFTER 14.95 

CLAIM JUMPER 9.95 

CLOUDBURST 9.95 

CRIME BUSTER (XL/XE) . 24.95* 

CROSSBOW 24.95* 

CROSSFIRE 9.95 

DAVIDS MIDNIGHT MAGIC 19.95 

DEFENDER 14.95 

DELUXE INVADERS 7.95 

DESERT FALCON 19.95 

DIG DUG 19.95 

DONKEY KONG 5.00 

DONKEY KONG JR 19.95 

EASTERN FRONT (1941). 19.95 

E.T. PHONE HOME 9.95 

FIGHT NIGHT 19.95 

FINAL LEGACY 19.95 

FOOD FIGHT (XL/XE)... 19.95 

FOOTBALL 14.95 

FROGGER 14.95 

GALAXIAN 19.95 

GATO 24.95 

GORF (400/800) 5.00 

GYRUSS 14.95 

HARDBALL 19.95 

INTO THE EAGLES NEST 19.95 

JOURNEY TO PLANETS .. 9.95 

JOUST 19.95 

JUNGLE HUNT 19.95 

KABOOM! 14.95 

LODE RUNNER 24.95 

MARIO BROS 19.95 

MILLIPEDE 19.95 

MISSILE COMMAND 5.00 

MOON PATROL 19.95 

MR. COOL 9.95 

MS. PAC MAN 19.95 

NECROMANCER 19.95 

ONE ON ONE (XL/XE)... 19.95 

PAC MAN 5.00 



PENGO 

POLE POSITION 

POPEYE 

Q-BERT 

QIX 

RESCUE ON FRACTALAS . 
RETURN OF THE JEDI . . 

ROBOTRON:2084 

SKY WRITER 

SLIME (400/800) 

SPACE INVADERS 

STAR RAIDERS 

STAR RAIDERS II 

SUPER BREAKOUT 

TRACK & FIELD 

TURMOIL 

WIZARD OF WOR 

* REQUIRES LIGHT GUN 



19.95 
19.95 
14.95 
14.95 
14.95 
19.95 
14.95 
19.95 
14.95 

9.95 
14.95 

5.00 
19.95 

9.95 
24.95 

9.95 

5.00 



PRODUCTIVITY 

ATARIWRITER 19.95 

MICROFILER 22.50 

EDUCATION 

ATARILAB STARTEER SET 29.95 

MATH ENCOUNTERS 9.95 

FISHER PRICE (PRE SCHOOL): 

DANCE FANTASY 8.95 

LINKING LOGIC 8.95 

LOGIC LEVELS 8.95 

MEMORY MANOR 8.95 

SPINNAKER (AGE 3-10) : 
ALF IN COLOR CAVES . 9.95 

ALPHABET ZOO 9.95 

DELTA DRAWING 9.95 

FACEMAKER 9.95 

KIDS ON KEYS 9.95 

KINDERCOMP 9.95 

(AGE 7 - ADULT) : 

ADV. CREATOR (400/800) . 9 . 95 
FRACTION FEVER 9.95 

THE BASIC TUTOR 
Learn to program in BASIC 
Requires a 410 OR 1010 Program Recorder 
COMPLETE PACKAGE ONLY $9.95 

BOOKS ONLY 

DE RE ATARI 10.00 

LOGO 10.00 

ATARIWRITER 10.00 

DOS 2.5 12.95 

BASIC REFERENCE 5.00 

BOOKKEEPER 10.00 



SUFFER SJPJECZ^J^S 

RECONDITIONED ATARI MERCHANDISE 
30 DAY WARRANTY 



800 (48K) 
COMPUTER 
$79.95 


SPACE AGE 
JOYSTICK 
$5.00 


1030 MODEM 
WITH EXPRESS! 
$24.95 


400 (16K) 
COMPUTER 
$29.95 


ATARI 
TRACKBALL 
$9.95 


1010 PROGRAM 
RECORDER 
$29.95 


1020 COLOR 
PRINTER/ PLOTTER 

$19.95 

40 COLUMNS WIDE 
(NEW IN BOX) 


ATARI 
BOOKKEEPER 
$14.95 - NO BOX 

ATARI 
NUMERIC 
KEYPAD $7.95 


DISKETTES 
AS LOW AS 20 CENTS 
10 FOR $4.00 
100 FOR $29.95 
1000 FOR $200 
MOST ARE UNNOTCHED 
WITH OLD SOFTWARE 



SHIPPING INFORMATION - Prices do not include shipping and handling. Add $5.00 for small items ($8.00 Min. for Canada). Add $8.00 for disk 
drive. Add $2.75 for C.O.D. Calif, res. include 7% sales tax. Mastercard and Visa accepted if your telephone is listed in your local phone directory. 
Orders may be pre-paid with money order, cashier check, or personal check. Personal checks are hejd for three weeks before order is processed. 
C.O.D orders are shipped via UPS and must be paid with cash, cashier check or money order. International and APO orders must be pre-paid with 
cashier check or money order. $20.00 minimum on all orders. All sales are final - no refunds - prices are subject to change. 

Phone orders accepted TUESDAY THROUGH FRIDAY from 10:00 am to 6:00 pm PST. 

We carry a complete line of ATARI products and have a large public domain library. 
Write or call for free catalogue. (408) 749- 1003 TUE - FRI 10AM - 6 PM 



PRICES SUBJECT TO CHANGE WITHOUT NOTICE - 



ALL SALES ARE FINAL 




A COMPUTER SOFTWARE SERVICES 
RO. BOX 17660, ROCHESTER NY 14617 
ATARI" PHONE (716] 467-9326 

JUST RELEASED! 

$99.95 "SUPER ARCHIVER II" 

(for ATARI 1050 drives) 

NOW! COPYS all ENHANCED DENSITY programs plus retains all of the features 
of our World Famous SUPER ARCHIVER! (see below). Allows you to COPY or 
CREATE single or ENHANCED density protection schemes (including PHAN- 
TOM SECTORS!). Completely automatic; compatible with the BIT-WRITER!; the 
ULTIMATE BACKUP/PROGRAMMING device! Only $99.95 plus $4 S/H/l 
NOTICEI If you already own a SUPER ARCHIVER!, you can upgrade to a SUPER 
ARCHIVER II for only $29.95 plus $4 S/H/l (disk only - no additional hardware 
required). 

THE 

$69.95 "SUPER ARCHIVER"!® $69.95 

(for ATARI 1050 drives) 

The new SUPER ARCHIVER, obsoletes all copying devices currently available 
for the ATAR1 1050! It eliminates the need for Patches, PDB files, Computer 
Hardware, etc. Copies are exact duplicates of originals and will run on any 
drive; without exaggeration, the SUPER ARCHIVER is the most powerful 
PROGRAMMING/COPYING device available for the 1050! Installation consists 
of a plug-in chip and 6 simple solder connections. Softwares included. 
Features are: 



• ARCHIVER/HAPPY ARCHIVER 
COMPATIBLE 

• BUILT-IN EDITOR - reads, writes, 
displays up to 35 sectors/track 
short 

• BUILT-IN CUSTOM FORMATTER 
up to 40 sectors/track 

• BUILT-IN DISASSEMBLER 

• BUILT-IN MAPPER - up to 42 sectors/ 
track 

• DISPLAYS/COPIES Double Density 
HEADERS 

• AUTOMATIC FORMAT LENGTH 
CORRECTION 

• SIMPLE INSTALLATION 

The SUPER ARCHIVER is so POWERFUL that only programs we know that can't 
be copied are the newer ELECTRONIC ARTS and SYNFILE/SYNCALC (34 FULL 
sectors/track). If you want it ALL . . . buy the "BIT-WRITER"! also . . . then you'll 
be able to copy even these programs! Only $69.95 plus $4 S/H/l. 



• TRUE DOUBLE DENSITY 

• ULTRA-SPEED read/write 

• FULLY AUTOMATIC COPYING 

• SUPPORTS EXTRA MEMORY 

• SCREEN DUMP to printer 

• TOGGLE HEX/DEC DISPLAY 

• SECTOR orTRACK TRACING 

• AUTOMATIC DIAGNOSTICS 

• DISPLAYS HIDDEN PROTECTION 

• ADJUSTABLE/CUSTOM SKEWING 

• AUTOMATIC SPEED 
COMPENSATION 

• AUTOMATIC/PROGRAMMABLE 
PHANTOM SECTOR MAKER 



$79.95 



'BIT-WRITER"! 



$79.95 



The Super Archiver "BfTWRfTER"! is capable of duplcatlng even the "uncopyable" 
EA and SYN series which employ 34 FULL sectors/tracks. "BIT-WRITER"! is 
capable of reproducing these and FUTURE protection schemes of non 
physicially damaged disks. PLUG-IN circuit boards and 4 simple solder 
connections. The "SUPER ARCHIVER with "BIT-WRITER"! is the ultimate 
PROGRAMMING/COPYING device for Atari 1050's. EXACT DUPLICATES of 
originals are made! Copies run on ANY drive. Must be used with Super 
Archiver. Only $79.95 plus $4 S/H/l. 



$69.95 



'ULTRA SPEED PLUS" 



$69.95 



Imagine a universal XL/XE Operating System so easy to use that anyone 
can operate it instantly, yet so versatile and powerful that every Hacker, 
Programmer and Ramdisk owner will wonder how they ever got along 
without it! Ultra Speed Plus puts unbelievable speed and convenience at 
your fingertips. Use ANY DOS to place an ULTRA SPEED format on your disks, 
boot any drive (1-9) upon power-up, format your RAMDISK in Double Density, 
activate a built-in 400/800 OS for software compatibility, plus dozens of other 
features too numerous to mention! Below are just a FEW features you'll find 
in the amazing OS: 



ULTRA Speed SI0 for most 
modified drives 
ULTRA Speed Is toggleable 
Boot directly from RAMDISK 
Special timer circuits not re- 
quired for 1 or 2 Meg upgrades 
Background colors adjustble 
Reverse use of OPTION key 
Cold-start without memory loss 
' Built-in floppy/disk configuration 
editor (1-9) 



• Built In RAMDISK configura- 
tion editor (1-9) 

• RAMDISK exactly duplicates 
floppy drive so sector copy- 
ing and sector editing are 
now possible 

• Built in MINI Sector Copier 

• Toggle SCREEN OFF for up to 
40% Increase of processing 
speed. 

• Toggle Internal BASIC 



• Ram resident disk loader 
program (MACH 10 menu) 

• DOUBLE DENSITY RAMDISK 
capable 

• Entire MEMORY test that pin- 
points defective RAM chip 

• Boot any drive (1-9) upon 
power-up or cold-start 

• Supports memory upgrades 
up to TWO MEGABYTES 

• THREE Operating Systems in 
one (XL/XE, 400/800, ULTRA 
SPEED PLUS) 



$29.95 



"XF551 ENHANCER!" 



$29.95 



The XF551 Atari drive is a fine product with one major flaw.. .it writes to side 
TWO of your flopping disks BACKWARDS. This causes read/write 
incompatibility problems with all other single sides drives made for Atari 
such as Indus. Trak, Rana, Percom, Astra, Atari 1050, Atari 810, etc. Add the 
XF551 ENHANCER to the new XF551 drive and your problems are over! This 
device will restore 100% compatibility while retaining original design 
qualities of Atari's super new drive. The XF55< ENHANCER is a MUST for all 
XF551 Owners. Installation is simple. Only $29.95 plus $4 S/H/l. 



DEALER/DISTRIBUTOR/USER GROUP Discount availalbe call for info. 
PHONE Orders - MASTER CARD, VISA MAIL - Money Orders, Checks 

•SHIPPING! Add $4 for Shipping/Handiing/lnsurance within the U.S.A. 
UPS BLUE LABLE (2nd DAY AIR) available for $3 extra per shipment. 
CALL TODAY! (716) 467-9326 COMPUTER SOFTWARE SERVICES 

9 am - 5 pm (EST) WEEKDAYS P.O. Box 17660 

Rochester, N.Y. 14617 



A 

ATARI" 



$39.95 RICHMAN'S $39.95 

80 Column Word-Processor! 

Easy to use, very powerful, and NO ADDITIONAL HARDWARE required! 
Works with TV or Monitor! This "DISK ONLY" 80 Column Word-Processor is 
simple to use while offering numerous features such as: 



• Completely Menu driven 

• Self contained DOS 

• Complete Text formatting 

• Built in Printer Drivers 

• Page numbering 

• Justify and Endfill 

• High Speed Cursor 

• Dictionary 

• 80 COLUMNS ON THE SCREEN! 
One expert has compared 40 domestic and foreign word-processors 
and concluded that the RICHMANS 80 Column Word-Processor is the 
best! Only $39.95 plus $4 S/H/l. (64K required). 



Insert and Delete 
Search Mode 
View only mode 
Memory Statistics 
Alternate Output 
Change screen Colors, 
borders, luminesce 
Mouse compatible 



$39.95 



THE "QUINTOPUS!" 



$39.95 



The "QUINTOPUS!" is an inexpensive device that provides a tremendous 
amount of convenience while eliminating the problems associated with 
the endless "daisy-chaining" of peripherals (eg: drives, interfaces, printers, 
modems, cassettes, etc.). The "QUINTOPUS!" is an I/O port expander that 
converts a single I/O output/input into five additional outputs/inputs Instead 
of daisy-chaining all of your peripherals (which often times results in passing 
a signal through 30 feet or more of cable!), the "QUINTOPUS!" allows each 
device to be connected directly to the computers through only three or 
four feet of cable. This is particularly useful when attempting to use 
ULTRASPEED or WARPSPEED data transfer rates. The "QUINTOPUSI" also 
provides the "extra" I/O ports often needed to connect devices not having 
daisy-chaining capabilities. Cable resistance and compacitance are 
greatly reduced thereby significantly improving the opportunity of 
accurate data transfers! Only $39.95 plus $4 S/H/l. 

$59.95 THE "QUINTOPUS!" $59.95 
(with SWITCHABLE PORTS!) 

This Deluxe version of the "QUINTOPUS!" has all of the above features with 
the additional benefits of two SWITCHABLE PORTS! This means you can 
connect two computers to one printer or two printers to one computer; you 
can switch in a computer/printer combination and while you're printing 
out a long document, switch in a second computer to access a modem, 
disk drive, cassette deck, etc! Switch multiple combinations of peripherals 
or computers without the hassel or re-arranging I/O cables .... simply flip 
a switch! Only $59.95 plus $4 S/H/l. 



LIMITED SPECIALS! 

Previously we listed these products under our FIRESALE ad but many of our 
customers feared that the software items might be smoke or water 
damaged. They're NOT! All of the items listed below are BRAND NEW.. .only 
their literature or packing may have slight cosmetic imperfections. All items 
are fully warrantied! Quantities are limited! No rainchecks! 







LIMITED 




NORMALLY 


SPECIALS 


1. PILL (without case) 


$ 70 


$ 19 


2. SUPER PILL (without case) 


80 


22 


3. XL FIX ROM 


70 


19 


4. ULTRA MENU/DOS 


30 


19 


5. DISKCRACKER (Newest version) 


50 


19 


6. ELECTRONIC PHANTOM SECTOR MAKER DELUXE 


60 


35 


7. RICHMANS 80 COLUMN WORD PROCESSOR 


60 


29 


8. MIRACLE (Disk only Version of Impossible) 


70 


19 


9. IMPOSSIBLE for 800 or 800XL 


150 


69 


10. XL MATE 


30 


15 


11. COMPACTOR 


30 


15 


12. KLONE II (Generic HAPPY backup) 


100 


75 


13. SILENCER 


30 


19 


14. BLACK PATCH (MASTER) 


50 


25 


15. BLACK PATCH DATA DISKS 1 & 2 


20 


10 



•Order 5 items or more and we will pay the freight! 

These SPECIALS are for C.S.S. customers only - NO DEALER DISCOUNTS • NO RAINCHECKS 
- LIMITED QUANTITIES 




Ill 1 /\0/\ COLOR PRINTER 
JL UZU PLOTTER 

Complete with: J A A 
II • 2 Pen Sets W 1 /I UU 

• 1 Pnll Pnnpr 1 J 1 A 

• Power Supply & Cable ■ Brand New 

EXTRA PEN SETS mm ! 


1200XL 64K COMPUTER 

| vv/PAC-MAN ^^ 4 4Lr^3^ m 
Reconditioned 


SYNTREND $4.98 

;i 850 Interlace gg •• 
i Serial, parallel Recolx ,,; ionetl | 


1027 PRINTER 

| • 80 Column j. 
% • Direct Connect Sj^fe " ^ 
| • Letter Quality ^ • 
Brand New 


I 825 80 Column Printer 

■: • Fricttoii. Trac ^— »■ ^ 
:| • Dot Matrix 'gSndHtoSd 

! BASIC TUTOR , | 
-1 BOOKS §4,98 


ATTN. DEALERS 
PAC-MAN ££2Q 

ill Case of 120 V*\J • 


- ^ ^ ^ DISK DRIVE i 

1050 $169. 

^ m ■ Reconditioned 


! ARCADE CHAMP 

: ♦ 2 JOYSTICKS . m _ _ _ 

Qx $14.98 

: • PAC MAN ^ *»ww ... 

DOS XE ..$9,95 


800 48K COMPUTER 

w/I AC-MAN £gg 95 

xjix.v: RevoiulllkmeO 


1025 PRINTER | 

• 80 Column • 

• Dot Matrix AO 


800 BOARDS 

! ; • Mother • CPU vour choice \ 
• Power • ROM $8.98 j 


; 1010 Tape drive.... $29. | 

! 10' Joystick ext $ .99 

Trackball $9.95 1 



CARTRIDGES FOR 800, 



13 ASIC CARTRIDGE $4.95 

BASIC TUTOR (4 BOOKS) $-4.95 

TURMOII $4.95 

PAC-MAN (no box) $4.95 

DONKEY KONG (no box) $4.95 

GORF (400.800) $4.95 

DEMON ATTACK (400.800) $4.95 

DELUXE INVADERS $4.95 

JOURNEY TO THE PLANETS $4.95 

MATH ENCOUNTER $7.98 

DANCE FANTASY $8.9S 

LOGIC LEVEIES $8.98 

MEMORY MANOR $8.98 

LINKING LOGIC $8.98 

CHICKEN $8.98 

CLAIM .JUMPER $8.98 



DELTA DRAWING $8.9S 

HEY DIDDLE DIDDLE $8.98 

SLIME (400/800) $8.98 

ALPHABET ZOO $8.98 

ALF $8.98 

ADVENTURE CREATOR $8.98 

SKY' WRITER $14.95 

FOOTBALL $14.95 

DEFENDER $14.95 

ROBOTRON $19.98 

TENNIS $19.98 

FINAL LEGACY $19.98 

MARIO BROS $19.98 

DONKEY KONG JR $19.98 

JUNGLE HUNT $19.98 

MOON PATROl $19.98 



XL, XE 

BATTLEZONE $19.98 

FOOD FIGHT $19.98 

HARDBALL $19.98 

FIGHT NIGHT $19.98 

ONE ON ONE BASKETBALL $19.98 

DESERT FALCON $19.98 

NECROMANCER $19.98 

RESCUE ON FRACTALUS $19.98 

BALL BLAZER $19.98 

BLUE MAX $19.98 

STAR I HAIDERS II $19.98 

DAVID'S MIDNIGHT MAGIC $19.98 

ARC HON $19.98 

GATO $24.08 

ACE OF ACES $24.98 

LODE RUNNER $2 1.98 

BARNYARD BLASTER (XE gun) $24.98 



DISK SOFTWARE FOR 800, XL, XE 



DAVID'S MIDNIGHT MAGIC £4.98 

ZORRO $4.98 

BANDITS (48K 400.8(H)) $4.98 

PROTECTOR II $4.98 

CLAIM JUMPER $4.98 

SYNTREND $4.98 



CROSSCHECK $4.98 

MOLECULE MAN $4.98 

CRYSTAL RAIDER $4.98 

DESPATCH RIDER $4.98 

MISSION ASTEROID $4.98 



SPIDERMAN $4.98 

HULK $4.98 

VISICALC $24.98 

BOOKKEEPER W/ numeric keypad... $29.98 
GET RICH $39.98 



810 

DISK 
DRIVES 

$129. 



8-BIT I/O CABLE $4.98 



SAN JOSE COMPUTER 



H 



A T 



R I 



STORE 



Sunrise Plaza 640 Blossom Hill Rd. San Jose, CA 95123 
(408) 224-8575 • BBS (408) 224-9052 



5.25" 


DISKS 


20 CENTS EA.* 


QTY. 


PRICE 


10 


$4.00 


100 .. 


. $29.95 


*1000 


.... $200 


MAJORITY ARE UNNOTCHED 


CONTAINING 


OLD SOFTWARE 



SHIPPING: ADD $5.00 TO ALL ORDERS. AIR AND INTERNATIONAL SHIPPING EXTRA. THAT'S IT. 
WARRANTY: 90 DAY WARRANTY ON ALL ITEMS. TAX: CALIFORNIA RESIDENTS ADD 7% SALES TAX. 
PREPAYMENT: USE VISA. MASTERCARD. MONEY ORDER. CASHIER'S CHECK OR PERSONAL CHECK. 
PERSONAL CHECK MUST CLEAR PRIOR TO SHIPMENT. C.O.D.: CASH. CASHIER'S CHECK OR M.O. ONLY. 

Prices subject to change without notice. Brand and/or product names are trademarks or registered trademarks of their respective holders. 

Ad produced on an ATARI ST. 



When You Want To Talk Atari... 
You Want To Talk To Us. 



COMPUTERS 1 


Atari 






65XE 




$109 


130XE 




149 


| INTERFACES ^ 



ICD 

P:R Connection 

Printer Connection 

850 To Par Cable 

Supra 

1150 

Xctec 

Graphix Interface 
Atari 

850 Interface 



58 
34 
15 

36 

38 

109 



XL/XE ENHANCEMENTS 



Axlon 

32K Memory 400/800 16 
Atari 

80 Column Card 69 

I/O Cable 7 
ICD 

Sparta DOS Construction Set 26 

US Doubler/Sparta DOS 45 

Real Time Clock 46 

Rambo XL 26 



MODEMS 



Atari 

SX212 300/1200 ST Dir. Con. 64 

XM301 44 
Avatex 

1200HC 89 

2400 159 
Supra 

2400 Baud XL/XE or ST 159 

2400 Baud (No Software) 139 



DRIVES 



Atari 

XF551 XL/XE 179 
LB. 

5M 40 Track (ST) 219 
LCD. 

FA-ST 20 Meg 629 
FA-ST 30 Meg 759 
Indus 

GTS 100 3 , /2" DS/DD (ST) 189 
GT 1000 514" DS/DD (ST) 199 
Supra 

30 Meg Hard Drive (ST) 649 
60 Meg Hard Drive (ST) 989 



PRINTERS 



Alps 

ASP 1000 120cps, 9-Pin 



179 



Atari 

XDM121 Letter Quality XL/XE$189 
Brother 



M-1109 lOOcps Dot Matrix 


159 


Epson 




LX-800 150cps, 80 Col. 


189 


NEC 




P2200 Pinwriter 24-Wire 


349 


Okidata 




ML-390+ 270cps 24-Wire 


509 


Panasonic 




KX-P109H 194cps, 80 Col. 


179 


Star Micronics 




NX-1000 140cps, 80 Col. 


169 


NX- 1000 Rainbow Color 


239 


SOFTWARE XL/XE jl 


Access 




Leaderboard Golf 


13 


Atari 




Atariwriter Plus 


36 


Broderbund 




The Print Shop 


27 


Microprose 




Top Gunner 


16 


F-15 Strike Eagle 


23 



SOFTWARE (ST) 



Accolade 

Test Drive 
Acti vision 

Hacker 2 Doomsday 

Antic 

Flash 

Avant Garde 

PC Ditto 
Cygnus 
Starfleet 
DataEast 
Speed Buggy 
Electronic Arts 
Auto Duel 
Epyx 

D'vebomber 
Firebird 
Tracker 
FTL 

Dungeonmaster 

Michtron 

Leatherneck 

Microprose 

F-15 Strike Eagle 

Psygnosis 

Obliterator 

Soft Logik Corp. 

Page Stream 

Timeworks 

Desktop Publisher 

WordWriter 

Unison World 

Printmaster Plus 



24 

29 

19 

59 

34 

27 

32 

19 

14 

27 

28 

24 

27 

139 

79 
45 

23 



EXCLUSIVE XL/XE 
SOFTWARE FINAL 
CLOSEOUT 




ATARI 
1020 Printer, 40 Col. 
Color s 19 



"Purchase s 20 00 of the 
following items & pay 
only s 10 00 for the Atari 
1020 Color Printer" 



AA4204 1010 Color Pens 
AA4206 1020 Color Pens 



$2.49 
2.49 



UNBOXED /UNDOCUMENTED 
CARTRIDGES 



AAB4008 Space Invaders 1.99 

AAB4011 Star Raiders 1.99 

AAB4012 Missile Comnd. 1.99 

AAB4013 Asteroids 1.99 

AAB4022 Pac Man 1.99 



AAB4024 Galaxian $1.99 

AAB4025 Qix 1.99 

AAB8030 E.T. Phone Ho. 1.99 

AAB8039 Eastern Front 1.99 



DOCUMENTED SOFTWARE 



AA4011 Star Raiders 2.99 

AA4012 Missile Command 2.99 

AA4022 Pac Man 4.99 

AA4025 Defender 4.99 

AA4102 Kingdom (C) 1.99 

AA4126 Speed Reading 2.49 

AA4112 States & Cap. (C) 1.99 

AA4129 Vuggles Rainbow 2.49 

AA415 Filemanager 6.99 

AA5047 Timewise (D) 2.99 

AA6006 Counseling Proc. 1.99 

AA8048 Millipede 4.99 

AA9035 Mickey Outdoors (C) 3.99 



ATARI PROGRAM 
EXCHANGE (CASSETTES) 



Counter - Downhill - Dog Daze - 
Quaxon - Salmon Run - Typo At- 
tack - Video Math Flashcard - 
Fig/Forth 1.49/ea. 



ROKLYN 



Anti-Sub (D) & Journey to Planet 
(R) 3.49/ea. 

Call today on 
miscellaneous Mind- 
scape, Data Soft, and 
Synapse Tides as low 
as s 1.99/ea. 





Your Source for Hardware, Software & Peripherals 



In U.S.A. 



800-233-8950 

In Canada call: 800-233-8949 
All Other Areas call: 717-327-9575 Fax call: 717-327-1217 
Educational, Governmental and Corporate Organizations 

Call toll-free: 1-800-221-4283 
CMO, 101 Reighard Ave., Dept. B6, Williamsport, PA 17701 



Over 400,000 SATISFIED CUSTOMERS • MAJOR CREDIT CARDS ACCEPTED 



POLICY: Add 3% (minimum $7.00) shipping and handl- 
in;', I arger shipments may require additional t harges Per- 

sonal and company checks require *> weeks to clear For ' ■ 'LW'w 
lastcr delivery, use your credit card or send cashier's check marketing'cduncil 
or hank money order. Credit cards arc not charged ouneowtMarvewiqAssocmton mc 
until we ship. Pennsylvania and Maryland residents add appropriate sales tax All 
prices are U.S.A. prices and are subject to change. All items are subject to availability. 
Defective software will he replaced with the same item only. 1 lardware will be replac- 
ed or repaired at our discretion within the terms and limits of the manufacturer's 
warranty. We cannot guarantee compatibility. All sales are Final and returned 
shipments arc subject to a restocking lee Wc 



-.lupin 
ir phi 



aphi 



are not responsible lor typographic 
B606 



